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X.1 INTRODUCTION 


The Lisa featured a 16K byte ROM containing 68000 code that tested the Lisa’s hardware, 
booted the Lisa operating system from the startup disk drive or a slot-based boot card, 
and provided a special service facility called the ROM Monitor which normally only 
Apple’s manufacturing and service people used. 


The Lisa source code, version 2 revision H dated 24 February 1984, provided a concise 
description of the Boot ROM’s purpose and user controls. This summary follows: 


< 11>; Function: Initializes LISA system for use and performs preliminary 

< 2>; diagnostic checks. If all tests pass, the system then 

< 3>; does a keyboard scan to check for user input. If any key 

< 4>; is hit other than caps lock or the mouse button, 

< 5>; a menu is displayed on the screen showing the available 

< @ =; boot devices. If a valid COMMAND key sequence is detected, 

< 77>; a boot from an alternate device is attempted (see below) . 

< 8; If no keyboard input is detected, the system first checks 

< 99>; parameter memory for a valid boot device and, if none, defaults 
< 10> ; to booting from a Profile attached to the builtin parallel port 
< 11>; for Lisa 1 systems. 

< 12>; 

< 13> ; For Lisa 2 systems, a check is first made to verify a disk 

< 14> ; (internal or external) is connected before defaulting to the 

< 15> ; hard disk boot. If no disk is detected, the system defaults 

< 16> ; to booting from the floppy drive. 

< 17>; 

< 18> ; 

< 19> ; 

< 20> ; Inputs: Checks for keyboard input from the user. Currently, the following 
< 21> ; key sequences are honored if input after the system "clicks" the 
< 22> ; speaker (CMD refers to the Apple key on the keyboard) : 

< 23> ; 

< 24> ; CMD/1 - boot from Twiggy drive #1 or integral hard disk 

< 25> ; CMD/2 - boot from Twiggy drive #2 or SONY drive 

< 26> ; CMD/3 - boot from Profile attached to parallel port or integral hard disk 
< 27>; CMD/4 - boot from I/O slot #1, port 1 

< 28> ; CMD/5 - boot from I/O slot #1, port 2 

< 29> ; CMD/6 - boot from I/O slot #2, port 1 

< 30> ; CMD/7 - boot from I/O slot #2, port 2 

< 31> ; CMD/8 - boot from I/O slot #3, port 1 

< 32> ; CMD/9 - boot from I/O slot #3, port 2 

< 33> ; CMD/ENTER (on key pad) - abort boot, branch to ROM monitor 
< 34> ; CMD/SHIFT/P - abort boot, do power cycling 


For detailed information about the Boot ROM’s operation see the following Apple 
publications: 


Lisa 2 Owner’s Guide (release 2, dated 1983) 

Lisa 2 Owner’s Guide (release 3, dated 1984) 

Lisa Office System (release 3, dated 1984, p. 162) 
Lisa Level 1 Technical Procedures (June 1986) 


The Lisa Level 1 Technical Procedures manual had the following to say about the Boot 
ROM: 


Interpreting the Boot ROM 
On power-up, the Lisa will automatically perform a self-test using the program in its 


boot ROM. As the CRT warms up (approximately 30 seconds after power-up), the monitor 
will display 4 icons representing the CPU, I/O, memory, and expansion cards as they 
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are being tested. Each icon will be hilighted in sequence as the boot ROM checks 
them. 


The boot ROM diagnostics are an overview of the system. If one of the cards is 
faulty, its icon will be presented on the screen with an “X” through it. The testing 
will stop. Upon failure you should reseat the board, power-up, and if you get that 
error message again, swap out the board. If the system passes, and ROM code numbers 
are correct, you can use the Lisa/Macintosh XL Test diagnostic for further testing. 


The Boot ROM was written in around 12,000 lines of 68000 assembly language. The source 
code existed as a set of 6 files with the following file names and purposes as found in 
the source code: 


< 11>; Filename: RMXXX.Y.TEXT, XXX = ROM VERSION # (e.g., 200 for 2.00) 

< 2>; Y = E (equates) 

< 3>; = K (kernel tests) 

< 4>; = S (secondary tests) 

< 5>; = B (bootstrap code) 

< 6; = M (monitor code) 

< 77>; = G (graphics, icon and message display) 


The source file names for version 2.48 (48 is the ASCII value for “H”) were: 


RM248 .E. TEXT 
RM248 .K. TEXT 
RM248.S.TEXT 
RM248 .B.TEXT 
RM248 .M. TEXT 
RM248 .G. TEXT 
X.2 BOOT ROM HISTORY AND PROGRAMMERS 


The source code for the Boot ROM provided an extensive modification history. This 
history listed the main programmer, Rich Castro, and within the source code the names 
of other ROM programmers appeared: 


Rich Castro (main programmer) 

Ken Schmal (video PROM serial number reading) 
Ron Hochsprung (video PROM serial number reading) 
Rick Meyers (mouse & cursor I/O) 

Mike Urquhart (mini-graphics package) 


The modification history follows: 


< 1> ; Originator: Rich Castro 7/30/81 - Version 0.0 released to manufacturing 

< 22>; 

< 3> ; Modified by: Rich Castro 7/30 - 11/3/81 - Made the following changes: 

< 4>; 1) Twiggy bootstrap capability 

< 5>; 2) Initial COPS test and keyboard scan 
< 6; 3) Moved parallel card to slot 2 

< 77>; 4) Changed ROM interrupt/exception vectors, 
< 8; 5) Created jump table for ROM routines 
< 9; 

< 10> ; 11/3/81 - Version 0.7 released to the world 

< 11>; 

< 12> ; 11/4/81 - 1/15/82 - Made the following changes: 

< 13> ; 1) Added support for new memory cards 

< 14> ; 2) Added warm-start capability and jump 
< 15> ; table for ROM subroutine usage 

< 16> ; 3) Modified MMU reset routine to support 
< 17> ; single step board usage 
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18> ; 
19> ; 
20> ; 
21> ; 
22> ; 
23> ; 
24> ; 
25> ; 
26> ; 
27> ; 
28> ; 
29> ; 
30> ; 
31> ; 
32> ; 
33> ; 
34> ; 
35> ; 
36> ; 
37> ; 
38> ; 
39> ; 
40> ; 
41> ; 
42> ; 
43> ; 
44> ; 
45> ; 
46> ; 
47> ; 
48> ; 
49> ; 
50> ; 
51> ; 
52> ; 
53> ; 
54> ; 
55> ; 
56> ; 
57> ; 
58> ; 
59> ; 
60> ; 
61> ; 
62> ; 
63> ; 
64> ; 
65> ; 
66> ; 
67> ; 
68> ; 
69> ; 
70> ; 
71> ; 
72> ; 
73> ; 
74> ; 
75> ; 
76> ; 
TI> ; 
78> ; 
79> ; 
80> ; 
81> ; 
82> ; 


15) 
1/15/82 - 
1/18/82 - 
1/19/82 - 
1/27/82 - 
1/28/82 - 
1/30/82 - 
1/31/82 - 
2/6/82 - 


2/15/82 - 


2/17/82 - 
2/24/82 - 
2/25/82 - 


3/1/82 - 


3/1/82 - 
3/1/82 - 


3/4/82 - 


3/10/82 - 


3/10/82 - 
3/15/82 - 


3/17/82 - 
3/18/82 - 


4/5/82 - 


eee 


Added full memory initialization 

Added 256K memory parity test 

Modified COPS initialization so that 
keyboard commands can be sensed more 
reliably 

Added error code display routines and 
display of CPU and IO ROM versions 
Added preliminary disk controller test 
Updated warm-start check 

Modified disk interface test 

Changed low memory assignments 

Made corrections for no I/O board, disk 
interface error and contrast setting 
Modified memory sizing routine to 

catch memory errors 

Modify MMU test to avoid context 0 
destruction, add contrast setting for 
new machines, correct disk error and 
CPU ROM messages 

Move stack so old memory test still runs 


Release version 0.16 

Fix stack problem and release vrsn 0.17 
Change stack for call routine and version 
to 0.18 

Change MMU error routine to do address 
and data line toggling 

Add video circuitry test 

Add write wrong parity test 

Move run time stack to $180 

Add Profile bootstrap with upgrade for 
OS use (add jump table entries also) 
Update Twiggy bootstrap and add entry 
for OS use; also add MMU test to 
conditional assembly and add context 
saving to MMUTST2 routine 

Add correction to memory test for 
reboot problem and leave parity on 
Add code for clock test and special 
burn-in cycling 

Add code to simulate soft on switch 
pressed for COPS problem 

Removed all changes since ROM 0.18 
release except for parity enabling, 

no reset feature, memory sizing change 
and Profile booting 

Restore default stack ptr loc to $300 
Move default stack to $0400, restore 
everything except MMU testing 

Add MMU initialization and modify 
Twiggy, Profile boot routines for new 
load point 

Add change for new I/O addresses and 
fix for Twiggy routine 

Change contrast value for new I/O's 
Add correction for Profile and COPS 
routines and display msg when booting 
Restore version # at end of file 
Release version 0.22 


Make initial 2732 version (1.00); add 
following changes: 

1) correct MMU error routine bug 

2) change stack for CALL to $0400 

3) add parity disable to WWP routine 
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86> ; 4/7/82 


90> ; 4/8/82 
92> ; 5/5/82 


95> ; 5/12/82 


97> ; 5/13/82 
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<100> ; 5/14/82 


<102> ; 5/17/82 


<105> ; 5/18/82 


<107> ; 5/20/82 


<11l> ; 5/21/82 
<113> ; 5/26/82 


<115> ; 6/1/82 


<125> ; 6/1/82 


<127> ; 6/3/82 
<128> ; 6/3/82 


<134> ; 6/7/82 
<135> ; 6/10/82 


eee 


4) change MMU I/O space code to '9' 

5) add invalid boot code message 
Add speaker click after COPS check 
Add jump table entry for speaker 
routine, 1 second delay before "click" 
and alpha lock key check 


Release version 1.00 


Add I/O slot configuration check and 
I/O slot booting. Also add change to 
Profile read routine for PCR setting. 
Add burnin power-cycling routine as 
boot option invoked by CMD/P. 

Add changes for COPS command timing, 
Twiggy timeout, Twiggy booting, and 
add power-cycling routine. 

Add fixes for booting via parameter 
memory and COPS timing experiment. 
Add display of loop count and run time, 
and alter parameter memory useage for 
power-cycling option. 

Add display of Twiggy errors, change 
COPS routine for precheck code. 

Add contrast reset for "warm start", 
add cycle value display, restore COPS 
timeout code. 


Release version 1.02 


Begin addition of ROM monitor; set 
default to Apple if PM = 00. 
Make following changes: 
1) Memory sizing retry count to 64 
2) Save results on memory sizing errors 
3) Update NMI routine to check for parity 
errors. 
4) Restore default NMI vector after 
memory test. 
5) Create read clock subroutine and call 
when doing clock display. 
6) Add boot fix to save device id. 
Change to new sizing algorithm and retry 
count back to 32. 
Convert to version 1.03 
Made following changes: 
1) Localize message display to TSTCHK 
2)Do clear screen only in INITVCT and 
in TSTCHK and second monitor level. 
3)Change default video page to last. 
4)Complete first edition of monitor. 
Modify monitor level2 user interface. 
Made following changes: 
1)Add boot from Apple as CMD/A. 
2)Clear screen and display only in 
routine TSTCHK. 
3) Add ROM checksum error bit. 
4)Add exception error check to TSTCHK. 
5) Add speaker click just before 
keyboard scan. 
6)Reset to first video page for boot 
from Apple. 
7)Merge in changes from 1.03 file. 
8) Add parity error check to TSTCHK 
9)Change power-cycling so that double 
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<148> ; 
<149> ; 
<150> ; 
<151> ; 
<152> ; 
<153> ; 
<154> ; 
<155> ; 
<156> ; 
<157> ; 
<158> ; 
<159> ; 
<160> ; 
<161> ; 
<162> ; 
<163> ; 
<164> ; 
<165> ; 
<166> ; 
<167> ; 
<168> ; 
<169> ; 
<170> ; 
<171> ; 
<172> ; 
<173> ; 
<174> ; 
<175> ; 
<176> ; 
<177> ; 
<178> ; 
<179> ; 
<180> ; 
<181> ; 
<182> ; 
<183> ; 
<184> ; 
<185> ; 
<186> ; 
<187> ; 
<188> ; 
<189> ; 
<190> ; 
<191> ; 
<192> ; 
<193> ; 
<194> ; 
<195> ; 
<196> ; 
<197> ; 
<198> ; 
<199> ; 
<200> ; 
<201> ; 
<202> ; 
<203> ; 
<204> ; 
<205> ; 
<206> ; 
<207> ; 
<208> ; 
<209> ; 
<210> ; 
<211> ; 
<212> ; 


6/11/82 


6/14/82 


6/22/82 


6/30/82 


7/1/82 


7/7/82 


7/13/82 
7/14/82 


7/15/82 


7/16/82 
7/19/82 


7/19/82 
7/20/82 


7/20/82 


7/21/82 


bus fault used to restart diags 
Made following changes: 
1)Increase Twiggy timeout to 2 mins. 
2)Add 5 sec delay in power-cycle mode 
before shutting down. 


Release version 1.04 


Add loop after COPS test if error 
since keyboard not accessible. Also add 
fix for NMI restore after memory test. 
Made following changes: 
1)Add parameter memory and I/O boot 
checksum routines. 
2)Remove boot id save to parameter 
memory, except for power-cycle. 
3)Change to new boot device id's. 
1)Add changes for new Twiggy firmware. 
2)Add fixes for bugs in 1.04: 
a)Add row setting before error display 
to avoid writing over menu line. 
b)Set device codes for Profile and 
I/O slots to allow display if error. 
c)Enable setting of timeout for Twiggy 
reads. 
d)Save error codes for I/O boot in 
memory . 
e)Add option of clearing memory in 
INITMON routine. 
Made following changes: 
1)Modify checksum routines 
2)Add keyboard/mouse check/reset code 
Add speed parameter for new Twiggy code 
Add check for DSKDIAG in disk test, 
change to new Twiggy error codes 
Made following changes: 
1)Add Profile routine updates. 
2)Restore old boot id codes - new ones 
used only when new Twiggy code 
released. 
3) Upgrade burnin code for new parameter 
memory usage. 
4)Attempt to enable keyboard after MMU 
errors. 
5)Remove I/O boot checksum code until 
conversion to new Twiggy code. 
6) Add video pattern display code.. 
7)Remove characters from table and 
make other changes to save bytes. 
8)Upgrade service mode display option 
to handle count up to SFFFF. 


Create version 1.05 

Add bug fixes for MMU testing, power- 
cycle memory testing, Profile boot 
and service mode display option. 


Create version 1.06 
Add fix for MMU testing to properly 
record context in error 


Release version 1.07 


Make keyboard/mouse reset code changes 
and move check to before first "click" 


eee 
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<213> ; 
<214> ; 
<215> ; 
<216> ; 
<217> ; 
<218> ; 
<219> ; 
<220> ; 
<221> ; 
<222> ; 
<223> ; 
<224> ; 
<225> ; 
<226> ; 
<227> ; 
<228> ; 
<229> ; 
<230> ; 
<231> ; 
<232> ; 
<233> ; 
<234> ; 
<235> ; 
<236> ; 
<237> ; 
<238> ; 
<239> ; 
<240> ; 
<241> ; 
<242> ; 
<243> ; 
<244> ; 
<245> ; 
<246> ; 
<247> ; 
<248> ; 
<249> ; 
<250> ; 
<251> ; 
<252> ; 
<253> ; 
<254> ; 
<255> ; 
<256> ; 
<257> ; 
<258> ; 
<259> ; 
<260> ; 
<261> ; 
<262> ; 
<263> ; 
<264> ; 
<265> ; 
<266> ; 
<267> ; 
<268> ; 
<269> ; 
<270> ; 
<271> ; 
<272> ; 
<273> ; 
<274> ; 
<275> ; 
<276> ; 
<277> ; 


7/23/82 
7/27/82 


7/29/82 


7/30/82 


8/4/82 


8/9/82 


8/11/82 


8/12/82 


8/14/82 


8/18/82 


8/23/82 


8/24/82 


8/25/82 


8/27/82 


8/30/82 


8/31/82 


8/31/82 


9/8/82 


9/9/82 


9/10/82 


9/10/82 


9/13/82 


9/14/82 


9/22/82 


eee 


- Add extended memory tests 
- Add screen memory test and VIA tests. 


Change default boot for new Twiggy code 
to upper Twiggy. Add conditionals for 
Apple code. 
Add SCC test, optimize code. 
Add RAM address uniqueness test. 
Added the following: 
1)Twiggy mods for interleave 
2)Monitor options CONTINUE and LOOP 
3)Exception routine for line 1111 and 
line 1010 errors. 
Add Twiggy mod for disk clamp, add mods 
for kernel test failures such as screen 
flash on MMU error. 
Add memory sizing fix, increase delay 
for COPS and change default boot to 
TWIGGY! ! 
Begin code changes for new user interface 
and add hooks for icon display. 
Add mods for Twiggy changes to monitor 
DSKDIAG line and add initial timeout. 
Continue user interface changes. 
Add mouse, cursor code and changes for 
Customer mode to use mouse. 
Add controls for 2716 version of ROM. 
Add changes for Service mode to use 
pull down menu, eliminate keyboard 
queuing while awaiting input. 
Add dialog box, and window to service 
mode with modified scroll and character 
output routines. 
Add icons along with routines to display 
during test and for errors. 
Add routines for displaying and using 
boot icon menu. 
Add auto boot from Applenet. 
Add minor additions to Service mode 
for Set and Loop options. 


Create and do internal release of 
2716 (0.24), 2732 (1.15) and 2764 (2.00) 
ROM versions. 


Add fixes for I/O slot icon display 
and Profile icon display. 

Add fix for reboot problem in 2716 ROM. 
Add serial # read routine and test for 
2732 and 2764 ROM versions. Expand 
stack for serial read routine. 

Add fix for device code display for ROM 
versions 0.24 and 1.15. 


Create and do internal release of new 
ROM versions 0.25, 1.16 and 2.01. 


Add fixes for memory sizing and I/O 
slot booting. 


Create and release ROM versions 0.26, 
1.17 and 2.02. 


Add fixes and code for: 
1)Default video latch setting 
2)Mask for I/O and exception errors 
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<278> ; 
<279> ; 
<280> ; 
<281> ; 
<282> ; 
<283> ; 
<284> ; 
<285> ; 
<286> ; 
<287> ; 
<288> ; 
<289> ; 
<290> ; 
<291> ; 
<292> ; 
<293> ; 
<294> ; 
<295> ; 
<296> ; 
<297> ; 
<298> ; 
<299> ; 
<300> ; 
<301> ; 
<302> ; 
<303> ; 
<304> ; 
<305> ; 
<306> ; 
<307> ; 
<308> ; 
<309> ; 
<310> ; 
<311> ; 
<312> ; 
<313> ; 
<314> ; 
<315> ; 
<316> ; 
<317> ; 
<318> ; 
<319> ; 
<320> ; 
<321> ; 
<322> ; 
<323> ; 
<324> ; 
<325> ; 
<326> ; 
<327> ; 
<328> ; 
<329> ; 
<330> ; 
<331> ; 
<332> ; 
<333> ; 
<334> ; 
<335> ; 
<336> ; 
<337> ; 
<338> ; 
<339> ; 
<340> ; 
<341> ; 
<342> ; 


9/23/82 


9/24/82 
9/25/82 


9/29/82 
9/30/82 


10/5/82 


10/6/82 


eee 


3)Message display on external calls 
to ROM monitor 

4)Contrast setting before screen test 

5)Disable of NMI key on power-up 

6)Boot failure after first load 

7)Error tones for failures 

8) Loop mode setting of NMI key 


- Add 


1) Power cycling 
2) Full service mode menu 
3) Loop mode test choice display 


- Add dump memory option to service mode 
- Modify display memory option to allow 
count and address data on same line 
- Add jump table entry for READMMU 

- Add: 


1)"No reset" feature 
2)Verify Disk option for service mode 
3)Optimize cursor routines and 
remove unused CursorShield routine. 
4)Invert rectangles when selected from 
keyboard. 
5)Display boot menu only if down keycode 
detected. 


- Add: 


1)Memory error decoding to board level 
2)New size and position for alert box 
3)New test icon display 

4)Diskette # for Twiggy errors 


- Add: 


1)Continue keyboard scan after COPS 
errors 
2)Set extended memory test bit for 
loop on memory test option 
3)Display I/O slot card # on errors 
4)Change boot menu to "pull-down" format 
5)Change to new icons 


10/7/82 - Add: 


1)SCC test 

2)Error if no serial # (allow continue) 

3)Two passes of memory tests for extended 
mode, one for regular mode 


10/9/82 - Create version 2.03 
10/10/82 - Add bug fixes and I/O slot ROM check in 


10/12/82 


10/13/82 


10/14/82 
10/18/82 


10/20/82 
10/21/82 


10/22/82 


config scan. 
Create and release version 2.04. 


Make following changes: 

1)Add keyboard reset code 

2)Remove SCC test 

3)Add bug fixes for making alert box 

and displaying bad keyboard 

Add display of check marks for test icons 
Add fixes for Monitor entry, Profile boot, 
looping on diag tests 
Add message translations 

1) Adjust alert box and button dimensions 
2)Add boot from all ports on I/O slots 
3)Add fix for CMD key detection in monitor 
4)Change powercycle window to alert box 
5)Extend verify timeout to 4 minutes 


1)Add keyboard reset on external entry to ROM 


monitor 
2)Make Dump Memory routine conditional on 
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<343> ; final LISA ROM 

<344> ; 10/25/82 - 1)Change wait for disk error to branch to 
<345> ; monitor - CONTINUE option then continues 
<346> ; with the same boot device 

<347> ; 2) Change RETRY phrase to RESTART 

<348> ; 10/27/82 - Made following changes: 

<349> ; 1)RESET instruction on startup 

<350> ; 2)Jump table entries for access to memory 
<351> ; test and display decimal routines 

<352> ; 3)Optimize warm start reset check and 

<353> ; MMU error loop routines 

<354> ; 4)Change default video page to $2F for 
<355> ; no memory found. 

<356> ; 5)Rewrite screen memory test. Change main 
<357> ; memory test to go from low memory 

<358> ; to base of screen memory. 

<359> ; 6)Move inverse video check to after screen 
<360> ; test, doing rewrite only of screen page. 
<361> ; 7) Add new boot failure code, with hooks to 
<362> ; catch booting errors after ROM has 

<363> ; released control to boot loader for Twiggy 
<364> ; and Profile booting. 

<365> ; 10/29/82 - Add display for uncompressed slot card icons. 
<366> ; Modify TONE routine to init PCR reg. 

<367> ; 11/1/82 - Change external entry to monitor interface 
<368> ; so that error code displayed on same line as 
<369> ; message if no icon displayed 

<370> ; 11/3/82 - Made following changes: 

<371> ; 1)Move creation of test icon display till 
<372> ; after keyboard reset so translation can 
<373> ; be done if necessary 

<374> ; 2)Do cursor, mouse init only once so 

<375> ; cursor posn not reset 

<376> ; 3)Optimize mouse, cursor routines 

<377> ; 4)Correct COPSCMD routine 

<378> ; 5) Upgrade check for Profile routine and 
<379> ; optimize Profile read code 

<380> ; 11/8/82 - Conditionally add check for keyboard connected 
<381> ; routine. 

<382> ; 11/9/82 - Create version 2.07 

<383> ; 11/11/82 - Modify ROM checksum algorithm 

<384> ; 11/12/82 - Add diskette eject on power-off 

<385> ; 11/13/82 - 1)Remove Dump Memory/Verify Disk from Service 
<386> ; mode menu 

<387> ; 2)Add speaker beep and specific read/write 
<388> ; loop for memory sizing and lo mem errors 
<389> ; 11/15/82 - 1)Add keyboard/mouse disconnect check 

<390> ; 2)Remove memory "clear" from sizing test - now 
<391> ; done after memory testing 

<392> ; 11/16/82 - 1)Change power-cycle invoking to CMD/SHIFT/P 
<393> ; key sequence. 

<394> ; 2)Change customer monitor mode invoking to 
<395> ; CMD/ENTER (on key pad) key sequence. 

<396> ; 3)Add wait for profile loop in boot menu 
<397> ; display routine 

<398> ; 4) Add timeout to general wait for clock 
<399> ; input routine 

<400> ; 5) Increase delay for poweroff wait loop 
<401> ; 6)Optimize character display routine 

<402> ; 11/18/82 - 1)Add save of error code to special parameter 
<403> ; memory area for use during burnin. 

<404> ; 2) Add context check for MMU testing 

<405> ; 3)Create version 2.08 for internal release 
<406> ; 11/19/82 - 1)Change initial position of cursor to center 
<407> ; of screen. 
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<408> ; 
<409> ; 
<410> ; 
<41l> ; 
<412> ; 
<413> ; 
<414> ; 
<415> ; 
<416> ; 
<417> ; 
<418> ; 
<419> ; 
<420> ; 
<421> ; 
<422> ; 
<423> ; 
<424> ; 
<425> ; 
<426> ; 
<427> ; 
<428> ; 
<429> ; 
<430> ; 
<431> ; 
<432> ; 
<433> ; 
<434> ; 
<435> ; 
<436> ; 
<437> ; 
<438> ; 
<439> ; 
<440> ; 
<441> ; 
<442> ; 
<443> ; 
<444> ; 
<445> ; 
<446> ; 
<447> ; 
<448> ; 
<449> ; 
<450> ; 
<451> ; 
<452> ; 
<453> ; 
<454> ; 
<455> ; 
<456> ; 
<457> ; 
<458> ; 
<459> ; 
<460> ; 
<461> ; 
<462> ; 
<463> ; 
<464> ; 
<465> ; 
<466> ; 
<467> ; 
<468> ; 
<469> ; 
<470> ; 
<471> ; 
<472> ; 


11/19/82 


12/15/82 


12/16/82 


12/18/82 
1/3/83 


1/7/83 


1/11/83 
1/12/83 


1/18/83 


1/21/83 
1/28/83 
3/15/83 


4/20/83 


4/22/83 


4/26/83 
4/27/83 


5/9/83 


eee 


Release versions 2.08 (internal) and 
2.09 (for manufacturing) 


Add: 

1)Setting of VIA PCR reg for later use 

2)Reset of keyboard before boot 

3)Fix for slot 3 card check for boot menu 

Add: 

1)Move Profile cmd buffer to location $304 

2)Change default boot device to Profile 

3)Remove support for third boot port on 
each slot 

4)Expand id range for test card search 

5)Don't display Restart button after boot 
error 

6)New icons 

Fix memory test bug 


Fix bug in reporting parity circuitry 
failure. Change version to 2.10. 
Make following changes: 
1)Change keyboard sequences for I/O slot 
booting 
2)Extend timeout for inital Profile check 
Change SCC test to use max baud rate for 
loopback test 
Add running of expansion card status routines 
when configuration check is done 
Add fixes for: 
1)Continuing after memory error 
2)Checking for no reset function 
3)Memory sizing - search entire possible 2 meg 
4)Read of I/O slot ROM for icon data - 
ensure odd address for icon count 
5)Default boot setting when loop on memory 
test selected 
Add save of disk controller self-test status 


Create and release ROM version 2.11 


Extend Profile timeout for case where drive 
may be parking head. (bug RM016) 
Add fixes for: 
1)Memory sizing (bug RMO15). 
2)Garbage sent out serial port (RM014). 
3)Removed 6504 (bug RM013). 
4)Never ready Profile (bug RM011). 
Also do some code optimization in icon 
routines to make room for fixes. (RMO000) 
Do code optimization for setting bus error 
vector (labeled as RMOOO). 
Add changes for following requests: 
1)Display ROM id's on bootup (CHG0O1) 
2) Loop on address 1Meg-2 if sizing error (CHG002) 
3)Turn off contrast before doing poweroff (CHG003) 
4)Change copyright notice. (CHG005) 
Also modify alert msg display routine (CHGO005). 
Add loop on CPU diags if no memory or I/O 
board installed. Also toggle LED. (CHG004) 
Do only basic memory test on warm-start. (CHG006) 
Add fix for NMI bug (RMO10). 
Made following changes: 
1)Change ROM id display to rev # (D) (CHG001) 
2)Change ROM test failure to loop at fixed address 
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<473> ; 
<A474> ; 
<475> ; 
<476> ; 
<A477> ; 
<478> ; 
<479> ; 
<480> ; 
<481> ; 
<482> ; 
<483> ; 
<484> ; 
<485> ; 
<486> ; 
<487> ; 
<488> ; 
<489> ; 
<490> ; 
<491> ; 
<492> ; 
<493> ; 
<494> ; 
<495> ; 
<496> ; 
<497> ; 
<498> ; 
<499> ; 
<500> ; 
<501> ; 
<502> ; 
<503> ; 
<504> ; 
<505> ; 
<506> ; 
<507> ; 
<508> ; 
<509> ; 
<510> ; 
<511> ; 
<512> ; 
<513> ; 
<514> ; 
<515> ; 
<516> ; 
<517> ; 
<518> ; 
<519> ; 
<520> ; 
<521> ; 
<522> ; 
<523> ; 
<524> ; 
<525> ; 
<526> ; 
<527> ; 
<528> ; 
<529> ; 
<530> ; 
<531> ; 
<532> ; 
<533> ; 
<534> ; 
<535> ; 
<536> ; 
<537> ; 


5/10/83 


5/12/83 


8/8/83 


8/9/83 


8/10/83 


8/16/83 


9/1/83 - 


9/2/83 - 


9/6/83 - 


9/7/83 - 


9/8/83 


10/10/83 - 


10/12/83 


10/20/83 


10/20/83 - 


12/15/83 


12/16/83 - 


12/21/83 - 


eee 


SOOFEOOC8 (end of jump table) (CHG007) 
3)Make correction for screen not cleared when 
continuing from I/O slot error to boot menu. 
(CHGO08) 
Add change to enable display of uncompressed icons 
upon external entry to ROM Monitor (CHGO08) . 


Create and release rev D of boot ROM. 


Add changes for Pepsi system: (CHGO09) 

1) New icons. 

2) Display of icons with id #'s. 

Add save of disk ROM id in low memory. (CHG010) 
Add fixes for: 

1) SCC init for Applebus. (CHG011) 

2) Test card boot search. (CHG012) 

Delete inverse video check. (CHG013) 

Add fix to beep routine. (CHGO014) 

Delete memory address and ping pong routines, 
add routines to decode parity error to 

chip. (CHGO15) 

Add retry for hard disk booting. (CHG016) 
Add jump table entry for write to 

parameter memory routine. (CHGO17) 

Add new font, modify display routines. (CHG018) 
Add wait for hard disk ready when 
power-cycling. (CHG019) 

Add setting of video latch whenever boot 
error causes jump to ROM low memory default 
vectors. (CHG020) 

Add fix for memory test/initialization 

bug. (CHGO21) 

Add read of disk controller ROM self-test 
results. (CHG022) 

Add skip of disk eject on power-off if any 
disk controller errors occurred. (CHG023) 


Release for testing (rev 3B) with Pepsi systems. 


1)Make Pepsi icon changes. (CHG024) 

2)Add fix for proper setting of carry bit 
on floppy or hard disk boots. (CHG025) 

3)Add fix for video reset on boot from not ready 
Profile. (CHG026) 

Add change to reset SCC for Applebus before 

doing memory test. (CHG027) 

Add fix for service mode bus error problem. (CHG028) 


Release as rev E for Lisa and Pepsi systems. 


1)Add new code to determine system type. (CHG029) 
2)Change default boot device for Lisa 2 
system if no hard disk connected. (CHG030) 
3)Extend timeout for hard disk ready. (CHG031) 
4)Add bug fix for wrong icon display on Lisa 2. 
(CHG032) 
5)Add bug fix for menu display when mouse or 
keyboard not connected. (CHG033) 
6)Remove save of error code in parameter memory. 
(CHG034) 
Release as rev 'X' for testing 


Release as official rev 'F' for all systems 
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<538> ; 1/25/84 - 1)Add code to properly initialize Profile-reset 
<539> ; and parity-reset lines for Profile booting 
(CHG036 

<540> ; 

<541> ; 2/7/84 - 1)Extend hard disk default read timeout to 16 
<542> ; seconds for Widget systems. (CHG037) 

<543> ; 2)Add delay after hard disk reset for Widget 
<544> ; systems. (CHG038) 

<545> ; 2/8/84  - Release as rev G for testing 

<546> ; 

<547> ; 2/24/84 - Release as official rev H 

<548> ; 

X.3 BOOT ROM SYSTEM DIAGNOSTIC TESTS 


The Boot ROM provided an extensive collection of diagnostic tests whose purpose was to 
verify that the Lisa’s hardware was working correctly. The Lisa 2 Owner’s Guide 
(release 2 dated 1983) had the following to say about these startup tests in Section C: 
Troubleshooting: 


Procedure N: Startup Symptoms and Error Messages 


Every time you turn on the Lisa, the system automatically runs a series of internal 
tests. These tests fall into two categories: 


o The KERNEL TESTS, which are designed to catch problems serious enough to interfere 
with the rest of the sequence. After the kernel tests, the Lisa emits one click. 


o The MODULE TESTS, which may result in specific error messages. After the module 
tests, the Lisa emits a double click. 


Errors detected during the tests can result in screen messages, error tones, or both. 


The Lisa 2 Owner’s Guide (release 3 dated 1984) provided a list of the startup tests. 
A summary of this list follows: 


ROM Checksum 

MMU Register Test 
Memory Sizing 
Preliminary Memory Test 
VIA Test 

Screen Memory Test 

CPU Board Test 

I/O Board Test 

Memory Test 


When the startup tests completed, the Lisa would either boot the Lisa operating system 
if there were no test problems, or if testing indicated a problem an error message 
would appear. Error messages consisted of an icon showing the part which failed and a 
failure number (or the Lisa emitted Hi and Lo frequency tones if the failed test was a 
critical Lisa component which caused the screen to not display anything). For example, 
if the Lisa encountered an I/O board error the Lisa would display the I/O board icon 
and a number in the range 50 to 60 (number 50 signified that the keyboard VIA chip was 
not functioning correctly). 


The startup tests took around one minute to execute. Booting the operating system took 
around 5 minutes. 


The Lisa also displayed the Boot ROM and the floppy disk controller ROM versions in the 
upper right corner of the screen. For my Lisa 2/10 model these appear as “H/88” where 
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“H” is the Boot ROM version and “88” is the floppy controller ROM version. 


After the diagnostic tests ran the Boot ROM stored a large amount of information into 
an area of the Lisa’s memory. This information was used by the Lisa Operating System 
and most likely the Lisa Office System. Users with knowledge of the Boot ROM’s Monitor 
could also access this information via the Monitor’s memory display facility. Details 
of this information from the Boot ROM source code follow: 


< 11>; OUTPUTS: Saves various results and contents of system registers in memory 
< 22>; for examination by system programs or with the ROM monitor. 

< 3>; 

< 4>; $180-183 : Power-up status (x0000000 = ok) 

< 5>; $184-185 : Memory sizing error results 

< 6; $186-1A5 : Results of memory read/write tests 

< 77>; $1A6-1A9 : Parity error memory address (if error during mem test) 
< 8; $1AA-1AB : Memory error address latch 

< 9; $1AC-1AF : D7 save on exception errors 

< 10> ; $1B0-1B1 : Results of MMU tests (context/data bits) 

< 11> ; $1B2 : Keyboard ID (00 = no ID received) 

< 12> ; $1B3 : Boot device ID 

< 13> ; $1B4-1B9 : Boot failure data 

< 14> ; $1BA-1BF : Clock setting (Ey,dd,dh,hm,ms,st) 

< 15> ; $1C0-1DF : Data reg save area (DO - D7) 

< 16> ; $1E0-1FF : Address reg save area (AO - A7, A7 = USP) 

< 17> ; $240-260 : System serial # 

< 18> ; $260-267 : Scratch area 

< 19> ; $268-26B : Suspected (logical) memory error address for parity error 
< 20> ; $26C-26F : Save of data written to suspected error address 

< 21> ; $270-273 : Actual (logical) error address found during search 
< 22> ; $274-277 : Save of data read during parity error search 

< 23> ; $278-27B : (Physical) error address read from parity error address latch 
< 24> ; $27C : Error row for parity chip failure (0 = first row, 7 = last row) 
< 25> ; $27D : Error column for parity chip failure (9 or 14) 

< 26> ; $27E-280 : Reserved 

< 27> ; $280-293 : Exception data save area 

< 28> ; (FC/EXCADR/IR/SR/PC/EXCTYPE/SSP) 

< 29> ; 44 = NMI or other interrupt 

< 30> ; 45 = bus error 

< 31> ; 46 = address error 

< 32> ; 47 = other exception/interrupt 

< 33> ; 48 = illegal instruction error 

< 34> ; 49 = line 1010 or 1111 trap 

< 35> ; 50 = bus error accessing keyboard VIA 

< 36> ; 51 = bus error accessing parallel port VIA 

< 37> ; 57 = bus error accessing disk controller 

< 38> ; $294-297 : Maximum physical memory address + 1 

< 39> ; $298-299 : I/O slot 1 card id (0 = no card present) 

< 40> ; $29A-29B : I/O slot 2 card id 

< 41> ; $29C-29D : I/O slot 3 card id 

< 42> ; $29E : Reserved 

< 43> ; $29F : Reserved 

< 44> ; $2A0 : Reserved 

< 45> ; $2A1 : Disk ROM id 

< 46> ; $2A2-2A3 : Reserved 

< 47> ; $2A4-2A7 : Minimum physical address 

< 48> ; $2A8-2AB : Total memory (Max-Min) 

< 49> ; $2AC : SCC test results 

< 50> ; $2AaD : Slot # of memory board if memory error 

< 51> ; $2AE : Result of disk controller self-test 

< 52> ; S2AF : System type (0 = Lisa 1, 1 = Lisa 2, 2 = Lisa 2 with external hard 
disk, 

< 53> ; 3 = Lisa 2 with internal hard disk) 

< 54> ; $2B0-2BF : Keyboard queue (16 bytes) 

< 55> ; $2C0-480 : ROM scratchpad/stack area 
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< 56> ; $480-800 : Reserved for ROM local variable usage 

< 57> ; 

< 58> ; Also saves data in special parameter memory area reserved for boot ROM use if error 
< 59> ; encountered. Usage is as follows: 

< 60> ; 

< 61> ; $FCC161 : Error code 

< 62> ; $FCC163-165 : Contents of memory error address latch if parity error 
< 63> ; $FCC167 : Memory board slot # if memory error 

< 64> ; $FCC169-173 : Last value read from clock 

< 65> ; $FCC175-17B : Reserved 

< 66> ; $FCC17D-17F : Checksum 


The Boot ROM also determined the type of Lisa that the ROM was running on (refer to 
memory location $2AF in the above listing). The ROM could detect the following Lisa 
systems: 


o Lisa 1 

o Lisa 2 

o Lisa 2 with an external hard disk (either Apple’s 5Mbyte ProFile or Priam’s 80Mbyte 
Data Tower) 

o Lisa 2 with an internal hard disk (Apple’s 10Mbyte Widget) 


The system type was determined by the following ROM routine (note the use of the floppy 
disk ROM id to determine if the Lisa is a Lisa 1 by checking if a Twiggy drive is 
present) : 


ND GS SSS Se se a SS SSeS SSS 

< 2> ; Subroutine for determining system type 

< 3> ; Returns type value in DO and sets SYSTYPE location in memory 

< 4>; DO = 0 - Lisa 1 

< 5>; 1 - Lisa 2/external disk with slow timers 

< 6; 2 - Lisa 2/external disk with fast timers 

< 77>; 3 - Lisa 2/internal disk (Pepsi) with fast timers 

I © a eee 

< 99> 

< 10> SETTYPE CLR.L DO ;clear for type usage CHG029 
< 11> MOVE.B DISKROM,D1 ;read disk id CHG029 
< 12> TST.B D1 ;check for Lisa 1 CHG029 
< 13> BPL.S @9 ;skip if yes CHG029 
< 14> BIST #SLOTMR ,D1 ;Lisa 2 with slow timers? CHG029 
< 15> BEQ.S @1 ;skip if not CHG029 
< 16> MOVEQ  #1,D0 ;else set type CHG029 
< 17> BRA.S @9 ; CHG029 
< 18> @1 BTST #FASTMR ,D1 ;Lisa 2 with fast timers? CHG029 
< 19> BEQ.S @2 ;skip if not CHG029 
< 20> MOVEQ #2,D0 ;else set type CHG029 
< 21> BRA.S @9 ; CHG029 
< 22> @2 MOVEQ #3,D0 ;else must be Pepsi with fast timers CHG029 
< 23> @9 MOVE.B DO,SYSTYPE ;save system type CHG029 
< 24> RTS ; CHG029 


Note the reference to “Pepsi” which was the Lisa 2’s code name by Apple since John 
Sculley, formerly of Pepsi, was head of Apple at this time. 


X.4 BOOT ROM OPERATING SYSTEM BOOTING 
XXXX 
Xx.5 BOOT ROM SERVICE MODE 


The Lisa’s ROM Service Mode is a very esoteric feature of the ROM which seems to be a 
tool for use by trained Lisa service or manufacturing people. Documentation for this 
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feature does not seem to exist. Even Apple’s Lisa Level 1 Technical Procedures 
(revision June 1986) does not mention this feature. 


An excellent discussion of the Service Mode may be found in Larry Pina’s book Macintosh 
Repair & Upgrade Secrets (lst edition, pages 235-280). Chapter 13, Lisa/Macintosh XL 
Repair Secrets, has the following to say about the Service Mode (p. 254): 


In addition to the automatic startup tests, the Lisa has a built-in service mode. The 
built-in service mode is top secret. Very few people know it exists. No one I’ve 
spoken to, not even the most knowledgable Lisa owners and technical support people, 
have ever seen the documentation. Whether the documentation was lost, or whether it 
was ever written, remains a mystery. Still, some tests are easy to figure out. 

Adjust Video, for example, puts up a 1/2-inch reverse video crosshatch. 


Here’s how to enter the built-in service mode: 


1. If the computer is on, turn it off. Wait a few seconds, then without inserting a 
startup floppy disk, turn the computer on again. 

2. At the end of the kernal test (when you hear the first click), hit any key except 
Caps Lock. Hitting a key interrupts the normal startup procedure and turns on the 
Startup From mode. 

3. At the end of the module test (when you hear the second click), hold down the Apple 
key and press the 2 key. 

4. Since there’s no floppy disk in the disk drive, the Lisa beeps three times and 
presents you with an error box. Ignore it! 

5. Hold down the Apple key and press the “S” key, “S” presumably stands for “Service”. 
Case is irrelevant. Pressing S, or s, will engage the service mode. 


Without more information, I can only speculate as to the purpose of these tests. My 
best guess is that they were used on the assembly line for quality control. 


If you follow the steps that Mr. Pina discusses you should see the following pull-down 
menu in the upper left corner of the screen: 


OPTIONS 


O1SPLAY MET 
SET MEMORY 
CALL PROGRAM 


LOOP ON TEST 
ADJUST UIDEO 
POWER CYCLE 
QUIT 


You can select a specific test using either the mouse or by typing a numeric key (e.g. 
typing “2” will activate the SET MEMORY menu command). You will also see two windows 
on the right side of the screen: 
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FON 

ANU 
WIOEO 
PARITY 
PARA WIA 
EYBO WIA 
COPS 

SCC 

DISK 
CLOCK 
MEMORY 
Id SLOTS 


1 
2 
| 
4 
a 
6 
T 
o 
q 
A 
B 
C 


The above SERVICE MODE window shows an additional set of commands that are activated 
when you select the LOOP ON TEST command from the OPTIONS menu. These tests allow you 
to select and run specified tests for selected durations. The window with TEST ? 
inside it contains other requests depending upon the selected menu command. For 
example, if select the DISPLAY MEM menu command the top window asks for the starting 
address of memory to display and the number of bytes to display. 


From the Boot ROM source code’s perspective, the Service Mode was called Level 2 of the 
Lisa ROM Monitor. Level 1 was called the customer level. 


Additional ROM Monitor support existed in the area of communications with an external 
computer. There are several comments and routines in the source code which allowed an 
Apple 2 computer user to boot the Lisa and for sending data between the Lisa and the 
Apple 2. I assume this feature allowed an Apple 2 program to control the Lisa, at 
least at the Lisa ROM level. 


X.6 BOOT ROM SOURCE CODE METRICS 


As part of my interest in software metrics I wrote several Macintosh MPW shell tools 
which produced a fair amount of metric data concerning the Boot ROM source code. These 
metrics were aimed at the number of source file lines and the ratio of comments to 
source lines, and at the source code’s opcode usage. 


In my opinion the Boot ROM source code was very well written in terms of readability. 

I found the general comments at the start of the source code to be very helpful in 
understanding how the ROM worked and how it was organized. The history modification 
listing was excellent. The routines within the source code were also documented well 
with each having a heading commentary. The analysis of the source code for the comment 
ratio showed that on a line basis the source contained around 20% comments. 


As an example of the routine header comments, here’s a sample from the mouse handling 
portion of the Boot ROM: 
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1> ; 
2> 3 
3> ; 

4> ; 
5> ; 

6> ; 

77> ; 

8> ; 

99> ; 
10> ; 
11> ; 
12> ; 
13> ; 
14> ; 
15> ; 
16> ; 
17> ; 
18> ; 
19> ; 
20> ; 
21> ; 
22> ; 
23> ; 
24> ; 
25> ; 
26> ; 
27> ; 
28> ; 
29> ; 
30> ; 
31> ; 
32> ; 
33> ; 
34> ; 
35> ; 
36> ; 
37> ; 
38> ; 
39> ; 
40> ; 
41> ; 
42> ; 
43> ; 
44> ; 
45> ; 
46> ; 
47> ; 
48> ; 
49> ; 
50> ; 
51> ; 


Hardware Interface for the Mouse 


Written by Rick Meyers 
(c) Apple Computer Incorporated, 1983 


The routines below provide an assembly language interface to the mouse. 
Input parameters are passed in registers, output parameters are returned 
in registers. Unless otherwise noted, all registers are preserved. 


The Mouse 


The mouse is a pointing device used to indicate screen locations. Mouse 
coordinates are located between pixels on the screen. Therefore, the 
X-coordinate can range from 0 to 720, and the Y-coordinate from 0 to 364. 
The initial mouse location is 0,0. 


Mouse Scaling 


The relationship between physical mouse movements and logical mouse 
movements is not necessary a fixed linear mapping. Three alternatives 
are available: 1) unscaled, 2) scaled for fine movement and 3) scaled 
for coarse movement. 


When mouse movement is unscaled, a horizontal mouse movement of x units 
yields a change in the mouse X-coordinate of x pixels. Similiarly, a 
vertical movement of y units yields a change is the mouse Y-coordinate 
of y pixels. These rules apply independent of the speed of the mouse 
movement. 


When mouse movement is scaled, horizontal movements are magnified by 3/2 
relative to vertical movements. This is intended to compensate for the 
2/3 aspect ratio of pixels on the screen. When scaling is in effect, a 
distinction is made between fine (small) movements and coarse (large) 
movements. Fine movements are slightly reduced, while coarse movements 
are magnified. For scaled fine movements, a horizontal mouse movement of 
x units yields a change in the X-coordinate of x pixels, but a vertical 
movement of y units yields a change of (2/3)*y pixels. For scaled coarse 
movements, a horizontal movement a x units yields a change of (3/2) *x 
pixels, while a vertical movements of y units yields a change of y pixels. 


The distinction between fine movements and coarse movements is determined 
by the sum of the x and y movements each time the mouse location is 
updated. If this sum is at or below the 'threshold', the movement is 
considered to be a fine movement. Values of the threshold range from 0 
(which yields all coarse movements) to 256 (which yields all fine 
movements). Given the default mouse updating frequency, a threshold of 


ene 


about 8 (threshold's initial setting) gives a comfortable transition between 


fine and coarse movements. 


The source code for my metric analyzer tools appears at the end of this section. 


Boot ROM Lines and Comments Metrics: 


AAAKAAAA 


1> HHH HHH HH THe 


2> # 


# 


3> # SUMMARY LINE AND COMMENT METRICS FOR APPLE LISA BOOT ROM 2.48 SOURCE CODE # 


A> # 


# 


S> SHEE EEE EET EET EEE EEE AE 


6> 
71> 


DAVID T CRAIG - 12 JUNE 1993 
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8> 

9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
471> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 
66> 
67> 
68> 
69> 
70> 
71> 
72> 


These metrics describe the following source line and character information 


for a single source file: 


Total Lines 
Total Comment Lines 
Comment / Line Count % 


Total Characters 
Total Comment Characters 


Comment / Line Character % 


total 
total 
ratio 


total 
total 
ratio 


number of source lines 
number of full comment lines (*) 
of comment lines to source lines 


number of source line characters 
number of comment characters (**) 
of comment characters to line characters 


Notes: ( *) includes only comment lines that exist soley by themselves, 


not source lines with ending comments. 
(**) comment character count includes comments that exist at the end 
of a source line also. 


SUMMARY: These metrics show that the amount of comments in the source code 
files are around 20% on a line basis and around 50% on a character 


basis. 


These metrics were obtained from the Macintosh utility tool DTCGetAsmComments 


as written by David T. Craig in June 1993. 


Let the metrics begin ... 


FILE: Lisa Boot ROM RM248.S 


Total Lines 
Total Comment Lines 
Comment / Line Count % 


Total Characters 


Total Comment Characters 


Comment / Line Character % 


FILE: Lisa Boot ROM RM248.M 


Total Lines 
Total Comment Lines 
Comment / Line Count % 


Total Characters 


Total Comment Characters 


Comment / Line Character % 


FILE: Lisa Boot ROM RM248.K 


Total Lines 
Total Comment Lines 
Comment / Line Count % 


Total Characters 


Total Comment Characters 


Comment / Line Character % 


FILE: Lisa Boot ROM RM248.G 


Total Lines 
Total Comment Lines 
Comment / Line Count % 


Total Characters 


Total Comment Characters 


Comment / Line Character % 


ene 
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< 73> 

< 74> FILE: Lisa Boot ROM RM248.E 

< 75> 

< 76> Total Lines = 1838 

< 77> Total Comment Lines = 742 

< 78> Comment / Line Count % = 40 % 

< 79> 

< 80> Total Characters = 83586 

< 81> Total Comment Characters = 51852 

< 82> Comment / Line Character % = 62 % 

< 83> 

< 84> FILE: Lisa Boot ROM RM248.B 

< 85> 

< 86> Total Lines = 2203 

< 87> Total Comment Lines = 401 

< 88> Comment / Line Count % = 18 % 

< 89> 

< 90> Total Characters = 81080 

< 91> Total Comment Characters = 42170 

< 92> Comment / Line Character % = 52 % 

< 93> 

< G4> FHHHFHHHHREHHHARHHHRRSHHRR ESHA ESHA RSHHR RSH RSH R AHHH AHHH RRR HRB RR HH 
< 95> # # 
< 96> # F I N I s # 
< 97> # # 
<< OB> HHH HH AH HH HR HH HH A HH HA HE EE HE HE RH EE aE a 


Boot ROM Opcode Usage Metrics: 


1> #HHHHHHHHHRPHRPHRSHRSHRSHRSHRRH RHR PRPS PREP REPRE RRR R RRR RR 
2> # # 
3> # APPLE LISA BOOT ROM 2.48 SOURCE CODE OPCODE STATISTICAL INFORMATION # 
A> # # 
S> Hae HH HEE HE RH HEH RH EH HE aE A aE HE aE HEH EH EH a a HE HR aE a a a 


7> Assembly Source File Opcode Information Gatherer 
8> Version: 1.0 [7/11/93] 


10> File 
11> File 
12> File 
13> File 
14> File 
15> File 


Lisa Boot ROM RM248.B.TEXT 
Lisa Boot ROM RM248.E.TEXT 
Lisa Boot ROM RM248.G.TEXT 
Lisa Boot ROM RM248.K.TEXT 
Lisa Boot ROM RM248.M.TEXT 
Lisa Boot ROM RM248.S.TEXT 


He He HEHE HE HE 
OU RWNHE 


17> Opcode List unsorted: 


NA KKRKAKAKANKAKAKAKRAKAKAKRAKAKAKAKAKRAKAARKA 
a 
foe) 
v 


19> Minimum opcode frequency = 1 

20> Maximum opcode frequency = 804 

21> 

22> # Opcode Frequency Histogram 

Za>i SSS Sea Sessssssesa. Sasa asses (SaaS asa ses e sie eS S sass s a5 5-535 $--S 35S 5 S5= = 
24> 1 . PAGE 115 eK KKKKK 

25> 2 .LIST 10 ** 

26> 3 BSR MTQ KRKKKKKRKKEKKE KKK RRR KKK KRKERERER 
27> 4 CLR.L Q5 kKkKKKKK 

28> 5 BTST BG kRkKKKKK 

29> 6 BEQ.S 195 KRKKKKKKKKKKK 

30> 7 MOVE.B Q1Q KRKKKKKKKKKERKEK 

31> 8 IF 253 KRKKKKKKKKKKKKERE 

32> 9 CMP .B O6 KkKKKKK 

33> 10 BNE.S Q10 KRKKKKKKKKKKKK 

34> 11 .ENDC 253 RKKKKKKKKKKKKE KKK 

35> 12 BRA.S Q5L RKKKKKKKKKKK KKK KEK 


The Legacy of the @ Lisa: An Outsiders View [Chapter XXX] REVISION 1 


190f 80 


< 36> 13 BNE 
< 37> 14 BCS 
< 38> 15 ELSE 
< 39> 16 BCC.S 
< 40> 17 TST.B 
< 41> 18 MOVEQ 
< 42> 19 LSR.B 
< 43> 20 MOVE 
< 44> 21 BPL.S 
< 45> 22 MULU 
< 46> 23 BRA 
< 47> 24 BGT.S 
< 48> 25 MOVE .L 
< 49> 26 BEQ 
< 50> 27 BCLR 
< 51> 28 BSET 
< 52> 29 LEA 
< 53> 30 BCS.S 
< 54> 31 CMPI .B 
< 55> 32 CLR.B 
< 56> 33 MOVEP 
< 57> 34 MOVEM. L 
< 58> 35 MOVEA .L 
< 59> 36 BSR.S 
< 60> 37 RTS 
< 61> 38 LSL.B 
< 62> 39 ANDI .B 
< 63> 40 OR.B 
< 64> 41 NOT 
< 65> 42 ADDQ 
< 66> 43 TST 
< 67> 44 ADDQ.L 
< 68> 45 ADD 
< 69> 46 ROL 
< 70> 47 DBF 
< 71> 48 ORI.B 
< 72> 49 CMPA.L 
< 73> 50 AND 
< 74> 51 CMP 
< 75> 52 CLR 
< 76> 53 ANDI 
< 77> 54 BLE.S 
< 78> 55 SUBA.L 
< 79> 56 ADD.L 
< 80> 57 SUBQ 
< 81> 58 ANDI.L 
< 82> 59 ROR.L 
< 83> 60 OR.L 
< 84> 61 ORI 
< 85> 62 JMP 
< 86> 63 BSRS4 
< 87> 64 RTS4 
< 88> 65 MOVEA 
< 89> 66 DISABLE 
< 90> 67 MOVEP .L 
< 91> 68 SUBQ.B 
< 92> 69 MOVE.W 
< 93> 70 ADD .W 
< 94> 71 ENABLE 
< 95> 72 SUBQ.L 
< 96> 73 .NOLIST 
< 97> 74 BSR4 
< 98> 75 TST .W 
< 99> 76 TST. 
<100> 77 CMPI 


KKK 

ak 

KkKKKKK 

KKK 

KKKKKKK 
KKKKKKKKKKKEKKKKKKKKKKKKK 
ak 
RKKKKKKKKKKKKKK 
kkk 

kkk 

KKKKKKK 

kK 
KKKKKKKKKKKRKKKKKKKKKKKKKK 
kkk 

kkk 

KKKKK 
KRKKKKKKKKKKK 
KKKKK 

KKKK 

KKK 

ak 

KRKKKKKKKKKK 
KKKK 

KKKKKKKKKK 
KKKKKKKKKKKK 


kkk 
KkKKKKK 
kkk 
ak 

ak 

ak 
KKK 
kK 
ak 
KKKKK 
ak 

ak 

ak 
KKKKKK 
kkk 
ak 

ak 

ak 
KKKK 
ak 
kkk 
ak 


eee 
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<101> 
<102> 
<103> 
<104> 
<105> 
<106> 
<107> 
<108> 
<109> 
<110> 
<111> 
<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 
<119> 
<120> 
<121> 
<122> 
<123> 
<124> 
<125> 
<126> 
<127> 
<128> 
<129> 
<130> 
<131> 
<132> 
<133> 
<134> 
<135> 
<136> 
<137> 
<138> 
<139> 
<140> 
<141> 
<142> 
<143> 
<144> 
<145> 
<146> 
<147> 
<148> 
<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 


. ENDM 
.EQU 

. INCLUDE 
CMP .W 
BLT.S 
NEG.L 
ADDI.L 
EOR.W 
CMP .L 
ADDA 
SUBQ .W 
SUB.L 
ADDI .W 
LSR.L 
ANDI .W 
DIVU 
OR 
ADDA.L 
LSR.W 
EOR.L 


P RP oR 


Nr 


No 
DOPED APWOWPRPNHONRFWHRAINEF EH 


W 
fo 
fo) 


or) 
FP OAONEFH 


PPIPRPWIBDPPORPRPRPHPONUDUNEFWNHHEE 


ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 


eee 


KKKKKKKKKKKKKKKKKRKKKRKKEKKKKKEKKEKKEKKKRKKKEKKKKKKKKK 


akKK 


akKK 


kkk 

ak 
KKKKKKKKKKKKKKKKKKKK 
* 

KKKKK 

kKKKKK 

ak 
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<166> 
<167> 
<168> 
<169> 
<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 
<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 
<214> 
<215> 
<216> 
<217> 
<218> 
<219> 
<220> 
<221> 
<222> 
<223> 
<224> 
<225> 
<226> 
<227> 
<228> 
<229> 
<230> 


143 EXT .W 2 
144 NEG .W 5 
145 ASR.W 2 
146 ADDQ.W 2 
147 AND .W 2 
148 AND.L 6 
149 NOT.L 6 
150 ORI .W 1 
151 LINK 1 
152 DBLE 2 
153 DBRA 5 
154 CLR.W 6 
155 CMPI .W 1 
156 SUBI .W 1 
157 UNLK 1 
158 LSL.W 3 
159 ROXL.B 2 
160 ROXL.L 2 
161 EOR.B 1 
162 CMPI .L 2 
Opcode List sorted by NAME: 
Minimum opcode frequency = 
Maximum opcode frequency = 
# Opcode Frequency 
1 ABSOLUTE 1 
2 ALIGN 1 
3 ASCII 76 
4 BYTE 306 
5 ELSE 78 
6 .END 1 
7 . ENDC 253 
8 . ENDM 11 
9 EQU 804 
10 .IF 253 
11 . INCLUDE 5 
12 . LIST 10 
13 . MACRO 11 
14 .NOLIST 8 
15 .ORG 6 
16 . PAGE 115 
17 . PROC 1 
18 . WORD 62 
19 ADD 39 
20 ADD.B 1 
21 ADD.L 26 
22 ADD.W 26 
23 ADDA 14 
24 ADDA.L 29 
25 ADDI .B 1 
26 ADDI.L 1 
27 ADDI .W 2 
28 ADDQ 56 
29 ADDQ.B 7 
30 ADDQ.L 14 
31 ADDO .W 2 
32 AND 3 
33 AND.L 6 
34 AND .W 2 
35 ANDI 17 
36 ANDI .B 26 


804 


Histogram 


kKkKKKKK 


KRKKKKKKKKKKKKKKKKKKK 


KkKKKKK 
* 


KRKKKKKKKKKKKKKKKK 


ak 


KKKKKKKKKKKRKKKKKEKRKKKKKEKKKKKKEKKEKKRKKKRKKKRKKKKKKKKK 


KRKKKKKKKKKKKKKKKK 


ak 
ak 
ak 
ak 
ak 
KKKKKKKK 


kkk 


eee 
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<231> 37 
<232> 38 
<233> 39 
<234> 40 
<235> 41 
<236> 42 
<237> 43 
<238> 44 
<239> 45 
<240> 46 
<241> 47 
<242> 48 
<243> 49 
<244> 50 
<245> 51 
<246> 52 
<247> 53 
<248> 54 
<249> 55 
<250> 56 
<251> 57 
<252> 58 
<253> 59 
<254> 60 
<255> 61 
<256> 62 
<257> 63 
<258> 64 
<259> 65 
<260> 66 
<261> 67 
<262> 68 
<263> 69 
<264> 70 
<265> 71 
<266> 72 
<267> 73 
<268> 74 
<269> 75 
<270> 76 
<271> 77 
<272> 78 
<273> 79 
<274> 80 
<275> 81 
<276> 82 
<277> 83 
<278> 84 
<279> 85 
<280> 86 
<281> 87 
<282> 88 
<283> 89 
<284> 90 
<285> 91 
<286> 92 
<287> 93 
<288> 94 
<289> 95 
<290> 96 
<291> 97 
<292> 98 
<293> 99 
<294> 100 
<295> 101 


LSL 
LSL.B 


NO 


i) 


h 
~l 
FP ORPORWNHNBEFOOA HUN WE ND 


KRKKKKKKKKKKKK 
ak 


KRKKKKKKKKKKKKK 
KKK 
KKKKKKK 


KRKKKKKKKKKKKKKKKK 


KKKKK 


KKKKKKKKKKKKKKKKKEKKKKKKRKKKKKKRKK 


KRKKKKKKKKK 
ak 

KKKK 

ak 

kK 

ak 
KKKKKKK 
kK 

kkk 
KKKKKKK 
ak 

ak 
KKKKKKK 
ak 


ak 
KKKKKKKKKKKK 
* 

ak 

* 
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<296> 
<297> 
<298> 
<299> 
<300> 
<301> 
<302> 
<303> 
<304> 
<305> 
<306> 
<307> 
<308> 
<309> 
<310> 
<311> 
<312> 
<313> 
<314> 
<315> 
<316> 
<317> 
<318> 
<319> 
<320> 
<321> 
<322> 
<323> 
<324> 
<325> 
<326> 
<327> 
<328> 
<329> 
<330> 
<331> 
<332> 
<333> 
<334> 
<335> 
<336> 
<337> 
<338> 
<339> 
<340> 
<341> 
<342> 
<343> 
<344> 
<345> 
<346> 
<347> 
<348> 
<349> 
<350> 
<351> 
<352> 
<353> 
<354> 
<355> 
<356> 
<357> 
<358> 
<359> 
<360> 


KKKKKKKKKKKKKKKKKKKKKKKKK 


eee 


102 LSL.L 7 kk 
103 LSL.W 3 xx 

104 LSR 4 kk 

105 LSR.B 5 xx 

106 LSR.L 19 **x 

107 LSR.W 3 ** 

108 MOVE 228 KKKKKKKKKKKKKKK 
109 MOVE .B Q12 KKKKKKKKKKKKKK 
110 MOVE.L 383 

111 MOVE ..W 69 kek 
112 MOVEA 55 keke 
113 MOVEA.L 37 kkk 
114 MOVEM 7 kk 

115 MOVEM.L 152 KkKKKKKERKK 
116 MOVEP 11 ** 

117 MOVEP.L 12 ** 

118 MOVEQ B76 RRRKKKKKKR ERR RRR ERE KR 
119 MULU Q1 xxx 

120 NEG.L 1* 

121 NEG .W 5 xk 

122 NOP 11 ** 

123 NOT 11 ** 

124 NOT.B Q ** 

125 NOT.L 6 ** 

126 OR 13 ** 

127 OR.B 4 xx 

128 OR.L 3 ** 

129 ORI 7 

130 ORI .B 32 *k* 
131 ORI .W 1* 

132 RESET 3 ** 

133 ROL 5 xx 

134 ROL.L 17 ** 

135 ROR 2 *k 

136 ROR.L 4 xx 

137 ROXL 2 kk 

138 ROXL.B 2 *k 

139 ROXL.L 2 *k 

140 RTE 2 ** 

141 RTS L716 KRKKKKKKKEKE 
142 RTS2 1* 

143 RTS4 17 ** 

144 RTS6 5 xk 

145 SUB 6 ** 

146 SUB.B 4 kk 

147 SUB .L 11 ** 

148 SUB .W Q ** 

149 SUBA.L 19 **x 

150 SUBI 1* 

151 SUBI.B 3 ** 

152 SUBI .W 1* 

153 SUBQ Th kkKKKK 
154 SUBQ.B 2 *k 

155 SUBQ.L 15 ** 

156 SUBQ.W 3 ** 

157 SWAP 13 ** 

158 TST A] xkkx 
159 TST.B BQ KkkKKKK 
160 TST.L 33 Kk 

161 TST .W 7 kk 

162 UNLK 1* 
Opcode List sorted by FREQUENCY: 
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<361> 
<362> 
<363> 
<364> 
<365> 
<366> 
<367> 
<368> 
<369> 
<370> 
<371> 
<372> 
<373> 
<374> 
<375> 
<376> 
<377> 
<378> 
<379> 
<380> 
<381> 
<382> 
<383> 
<384> 
<385> 
<386> 
<387> 
<388> 
<389> 
<390> 
<391> 
<392> 
<393> 
<394> 
<395> 
<396> 
<397> 
<398> 
<399> 
<400> 
<401> 
<402> 
<403> 
<404> 
<405> 
<406> 
<407> 
<408> 
<409> 
<410> 
<411> 
<412> 
<413> 
<414> 
<415> 
<416> 
<417> 
<418> 
<419> 
<420> 
<421> 
<422> 
<423> 
<424> 
<425> 


1 
804 


Histogram 


Minimum opcode frequency = 
Maximum opcode frequency = 
# Opcode Frequency 
1 EQU 804 
2 BSR 479 
3 MOVE .L 383 
4 MOVEQ 376 
5 BYTE 306 
6 ENDC 253 
7 IF 253 
8 BRA.S 251 
9 MOVE 228 
10 MOVE .B 212 
11 BNE.S 210 
12 BEQ.S 195 
13 LEA 179 
14 RTS 176 
15 MOVEM.L 152 
16 BSR.S 145 
17 . PAGE 115 
18 CMP .B 96 
19 CLR.L 95 
20 BRA 94 
21 TST.B 88 
22 BTST 86 
23 ELSE 78 
24 ASCII 76 
25 SUBQ 74 
26 MOVE .W 69 
27 BSET 64 
28 WORD 62 
29 BCS.S 59 
30 ADDO 56 
31 MOVEA 55 
32 TST 47 
33 BSR4 41 
34 CMPI .B 40 
35 ADD 39 
36 MOVEA.L 37 
37 TST.L 33 
38 ORI .B 32 
39 CMPA.L 31 
40 ADDA.L 29 
41 CLR 29 
42 CLR.B 29 
43 ADD.L 26 
44 ADD .W 26 
45 ANDI .B 26 
46 BEQ 25 
47 BMI.S 24 
48 DBF 23 
49 JMP 23 
50 BPL.S 22 
51 MULU 21 
52 BCC.S 20 
53 BCLR 20 
54 BGT.S 20 
55 BSRS4 20 
56 BNE 19 
57 LSR.L 19 
58 SUBA.L 19 
59 ANDI .L 18 
60 ANDI 17 


KKKKKKKKKKKKKKKKEKRKEKKEKKEKKKKKEKKEKKERKKKRKKKEKKKKKKEKKK 
KKKKKKKKKKKRKKKKKEKKKKKKKRKKKKKKKK 
KKKKKKKKKKKEKKKKKEKKKKKKKKK 
KKKKKKKKKKKEKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKK 
KRKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKEK 
RKKKKKKKKKKKKKK 
KRKKKKKKKKKKKKK 
KRKKKKKKKKKKKKK 
KRKKKKKKKKKKKK 
KKKKKKKKKKKK 
KKKKKKKKKKKK 
KRKKKKKKKKKK 
KRKKKKKKKKK 
KKKKKKKK 

KKKKKKK 

KKKKKKK 

KKKKKKK 

KKKKKKK 

KKKKKKK 

kkKKKKK 

KKKKKK 

KkKKKKK 

kkKKKKK 

KKKKK 

KKKKK 

KKKKK 

KKKKK 

KKKKK 

KKKK 

KKK 

KKKK 

kKKK 

KKKK 

kkk 

akKK 

kK 

kkk 

kkk 

kkk 

kkk 

kkk 

KKK 

KKK 

kK 
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kK 
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kkk 

kkk 

kK 

kkk 

KKK 

KKK 

kkk 

KKK 

kkk 
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<426> 
<427> 
<428> 
<429> 
<430> 
<431> 
<432> 
<433> 
<434> 
<435> 
<436> 
<437> 
<438> 
<439> 
<440> 
<441> 
<442> 
<443> 
<444> 
<445> 
<446> 
<447> 
<448> 
<449> 
<450> 
<451> 
<452> 
<453> 
<454> 
<455> 
<456> 
<457> 
<458> 
<459> 
<460> 
<461> 
<462> 
<463> 
<464> 
<465> 
<466> 
<467> 
<468> 
<469> 
<470> 
<471> 
<472> 
<473> 
<474> 
<475> 
<476> 
<AT71> 
<478> 
<479> 
<480> 
<481> 
<482> 
<483> 
<484> 
<485> 
<486> 
<487> 
<488> 
<489> 
<490> 


CMPI 
SUB .W 
-NOLIST 
ENABLE 
NOT.B 
ADDQ.B 
CMP.L 
CMP .W 
LSL.L 
MOVEM 
ORI 
TST .W 
. ORG 
AND.L 
CLR.W 
EOR 
LSL 
NOT.L 
SUB 

. INCLUDE 
BSRS6 
DBRA 
LSR.B 
NEG .W 
ROL 
RTS6 
BLS.S 
DISABLE 
DIVU 
EOR.L 
JSR 
LSR 
OR.B 
ROR.L 
SUB .B 
AND 
BHI.S 
LSL.W 
LSR.W 
OR.L 
RESET 
SUBI.B 
SUBQ.W 


WWWWWWWWPR KKK HP KH BPHKEUUUTOTUUAAHDADAHDAHDAATATTI IA ATIANYWDADADOWO WO 


ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
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<491> 
<492> 
<493> 
<494> 
<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 


w 
fo] 
fo} 
ct 


BWNe 
VVVY 


uo 
Vv 


© O10 
VVVYV 


10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 


NAKKANRKAKAKAKAKAKRAKAKAAAKAA 


PRPRPRPRPPPRPPHPHPPRPRPHPHPPRPHPHPHPEHPENNNNNNNNNNNNNDNDND 


eee 


FINIS 


ROM Source Line Label Metrics: 


Assembly Source File Label Information Gatherer 
Written by David T. Craig 


[9/5/94 6:06:51 PM] 


736 Edgewater, Wichita, Kansas 67230 
Copyright (c) 1993 by David T. Craig 


Version: 1.0 


Current Date and Time: Monday, September 5, 1994 6:09:28 PM 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KEK KKKKKKKEKKKKEKKKKKEKKEKKKRKEKEKRKKKKKKRKEKKKKKEKKKKKKKK 


* LABEL INFO FOR FILE : RM248.E.TEXT 
KKK IKK KKK KEK KIKI 


750 
753 
758 
762 
765 
769 
787 
790 
797 


DIAGS 
NORESET 
NEWTWIG 
AAPL 
ROM4K 
FULLSCC 
ROMSLCT 
DEFVID 
SCRNBASE 


751 
754 
760 
763 
766 
770 
788 
792 
801 


NEWLISA 
EXTERNAL 
FINLISA 
USERINT 
ROM8K 
INVERTCK 
IOSPACE 
DEFVID2 
RBYTES 


752 BURNIN 
756 ROM16K 
761 FINKBD 
764 DEBUG 
767 BMENU 
786 ROMBASE 
789 VIDLTCH 
795 SCRNBASE 
803 RBYTES 
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< 22> 805 TOPOFFSET 806 RLONGS 807 RO 

< 23> 808 R1 809 R2 810 R3 

< 24> 811 R4 812 R5 813 R6 

< 25> 814 R7 815 BUSVCTR 816 ADRVCTR 

< 26> 817 ILLVCTR 818 L1OVCTR 819 L11VCTR 

< 27> 820 NMIVCT 821 TRPVCTO 822 MAXADR 

< 28> 823 ONEMEG 824 HALFMEG 825 QTRMEG 

< 29> 826 ROW2ADR 827 STKBASE 828 CALLBASE 

< 30> 829 SETUP 830 SETUPON 831 PATRN 

< 31> 832 PATRN2 833 PARON 834 PAROFF 

< 32> 835 MEALTCH 836 STATREG 837 SFER 

< 33> 838 PBIT 839 VRBIT 840 VIDBIT 

< 34> 841 CSBIT 842 INVIDBIT 843 RETRYCNT 

< 35> 844 VTIRDIS 845 VTIRENB 846 HEX512K 

< 36> 847 HEX128K 848 HEX96K 849 HEX32K 

< 37> 850 HEX8K 851 HEX2K 852 LOMEM 

< 38> 853 DG20ON 854 DG20FF 855 ONESEC 

< 39> 856 TWOSEC 857 FIVESEC 858 QTRSEC 

< 40> 859 TNTHSEC 860 KBDDLY 861 HALFSEC 

< 41> 865 MSRCHSZ 866 VSRCHSZ 867 VMSK 

< 42> 868 ADRMSK 869 PHYTOLOG 877 VIA1BASE 

< 43> 878 ORB1 879 ORAL 880 DDRB1 

< 44> 881 DDRA1 882 TILL1 883 T1LH1 

< 45> 884 T2CL1 885 T2CH1 886 SHR1 

< 46> 887 ACR1 888 PCRL 889 IFRL 

< 47> 890 IER1 891 PORTAL 893 FDIR 

< 48> 895 VIA2BASE 896 ORB2 897 IRB2 

< 49> 898 ORA2 899 IRA2 900 DDRB2 

< 50> 901 DDRA2 902 TILL2 903 T1LH2 

< 51> 904 T2CL2 905 T2CH2 906 PCR2 

< 52> 907 PORTA2 909 DSKDIAG 911 CSTRB 

< 53> 915 PIABASE 916 INDATA 917 OUTDATA 

< 54> 918 INCSR 919 OUTCSR 923 SCCBCTL 

< 55> 924 ACTL 925 SCCDATA 926 RXBF 

< 56> 927 TXBE 933 CPUSEL 934 MMU 

< 57> 935 VID 936 PAR 937 CPUINTR 

< 58> 938 BUSEXCP 939 ADREXCP 940 MISEXCP 

< 59> 941 ILLEXCP 942 TRPEXCP 944 VIA1 

< 60> 945 VIA2 946 IOCOPS 947 KBDCOPS 

< 61> 948 CLK 949 RS232A 950 RS232B 

< 62> 951 DISK 952 IOEXCP 953 IOCOPS2 

< 63> 955 MEM 956 MPAR 957 IOKBD 

< 64> 959 KBDOUT 960 MOUSOUT 961 IO1ERR 

< 65> 962 IO2ERR 963 IO3ERR 964 ALTBOOT 

< 66> 965 WRMSTRT 967 LOOP 969 ERRMSK 

< 67> 970 CPUMSK 971 EXMSK 972 MEMMSK 

< 68> 973 IOMSK 974 OTHRMSK 975 CONTMSK 

< 69> 977 MMU 978 CPUSEL 979 VID 

< 70> 980 PAR 981 CPUINTR 982 BUSEXCP 

< 71> 983 ADREXCP 984 MISEXCP 985 ILLEXCP 

< 72> 986 TRPEXCP 988 VIAL 989 VIA2 

< 73> 990 IOCOPS 991 KBDCOPS 992 CLK 

< 74> 993 RS232A 994 RS232B 995 DISK 

< 75> 996 IOEXCP 997 IOCOPS2 998 IOKBD 

< 76> 1000 MEM 1001 MPAR 1003 KBDOUT 

< 77> 1004 MOUSOUT 1005 IO1ERR 1006 IO2ERR 

< 78> 1007 IO3ERR 1009 ALTBOOT 1010 BTMENU 

< 79> 1011 WRMSTRT 1013 LOOP 1015 ERRMSK 

< 80> 1016 CPUMSK 1017 EXMSK 1018 IOMSK 

< 81> 1019 MEMMSK 1020 OTHRMSK 1021 IOSMSK 

< 82> 1022 CONTMSK 1025 SCANMSK 1026 ALTBMSK 

< 83> 1027 BOOTMSK 1028 CPIOMSK 1034 ECPUSEL 

< 84> 1035 EMMU 1036 EVID 1037 ECPAR 

< 85> 1038 ECPUINTR 1039 EBUSEXCP 1040 EADREXCP 

< 86> 1041 EMISEXCP 1042 EILLEXCP 1043 ETRPEXCP 
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< 87> 1045 EVIAL 1046 EVIA2 1047 EIOCOP 
< 88> 1048 EKBDCOP 1049 ECLK 1050 ERS232A 
< 89> 1051 ERS232B 1052 EDISK 1053 EIOEXCP 
< 90> 1054 EIOCOP2 1056 EMEM 1057 EPAR 
< 91> 1058 EIOKBD 1062 SERR1 1063 SERR2 
< 92> 1066 EMMU 1067 ECPUSEL 1068 EVID 
< 93> 1069 ECPAR 1070 ECPUINTR 1071 EBUSEXCP 
< 94> 1072 EADREXCP 1073 EMISEXCP 1074 EILLEXCP 
< 95> 1075 ETRPEXCP 1077 EVIAL 1078 EVIA2 
< 96> 1079 EIOCOP 1080 EKBDCOP 1081 ECLK 
< 97> 1082 ERS232A 1083 ERS232B 1084 EDISK 
< 98> 1085 EIOEXCP 1086 EIOCOP2 1087 EIOKBD 
< 99> 1089 EMEM 1090 EPAR 1092 EBOOT 
<100> 1096 SERR1 1097 SERR2 1103 NORSTRT 
<101> 1104 NOCONT 1105 MSBUIN 1106 CMDFLG 
<102> 1107 MOUSE 1108 CHKCMD 1110 BIN 
<103> 1111 MENU 1115 MMUSADRL 1116 MMUSADRB 
<104> 1117 MMUEADRL 1118 MMUEADRB 1119 ADR128K 
<105> 1120 PAG128K 1121 MEMLMT 1122 NMEMLMT 
<106> 1125 IOLMT 1126 NIOLMT 1127 IOLMT2 
<107> #1128 RSTLMT 1130 IOLMT 1131 NIOLMT 
<108> 1133 SPLMT 1134 NSPLMT 1135 INVPAG 
<109> 1136 MMUOB 1137 MMUOL 1138 MMU126B 
<110> 1139 MMU126L 1140 MMU127B 1141 MMU127L 
<111> 1142 SEG1ON 1143 SEG1OFF 1144 SEG20N 
<112> 1145 SEG2OFF 1149 Dlycnst 1150 TKiller 
<113> 1151 BytesPerRead 1152 WordsPerRead 1153 HalfSize 
<114> 1154 ScrachSize 1156 Snum 1158 dLent 
<115> 1159 dSavArry 1160 dScrach 1162 dStack 
<116> #1166 MOUSDWN 1167 CMDKEY 1168 ALPHKEY 
<117> 1171 AKEY 1172 MKEY 1173 FKEY 
<118> 1174 GKEY 1175 HKEY 1176 PKEY 
<119> 1177 KEY1 1178 KEY2 1179 KEY3 
<120> 1181 KEY1 1182 KEY2 1183 KEY3 
<121> 1184 AKEY 1185 BKEY 1186 CKEY 
<122> 1190 ENTRKEY 1191 SHFTKEY 1192 PKEY 
<123> #1195 RSTCODE 1196 KUNPLG 1197 ICERR 
<124> #1198 KCERR 1199 MSUNPLG 1200 MSPLG 
<125> 1210 TWIG1 1211 TWIG2 1212 PROFILE 
<126> 1213 IO1PORT1 1214 IO2PORT1 1215 IO3PORT1 
<127> 1216 PC 1217 MON 1218 APPLE 
<128> 1220 TWIG1 1221 TWIG2 1222 PROFILE 
<129> 1223 IO1PORT1 1224 IO1PORT2 1225 IO2PORT1 
<130> 1226 IO2PORT2 1227 IO3PORT1 1228 IO3PORT2 
<131> 1229 PC 1230 MON 1235 PC 
<132> 1236 APPLE 1242 Iosl 1243 I0S2 
<133> 1244 IOS3 1245 TWG1 1246 TWG2 
<134> 1247 PRO 1249 TWG1 1250 TWG2 
<135> 1251 PRO 1252 IoSsl 1253 I0S2 
<136> 1254 I0S3 1261 TWIGGY 1262 DISKMEM 
<137> 1263 CMD 1264 DRV 1265 SIDE 
<138> 1266 SCTR 1267 TRAK 1270 STAT 
<139> 1271 CHKCNT 1272 HDR 1273 ROMV 
<140> 1274 INTSTAT 1275 DSKSTAT 1276 DISKROM 
<141> #1277 HDRSTRT 1278 DSKBFR 1280 SEEK 
<142> 1281 READS 1282 CLAMP 1283 STATS 
<143> 1284 UNCLAMP 1285 FORMAT 1286 VERIFY 
<144> 1289 SPEED 1290 CNFRM 1291 STAT 
<145> 1292 INTLV 1293 TYPE 1294 STST 
<146> 1295 ROMV 1296 RTRYCNT 1297 INTSTAT 
<147> 1298 CHKCNT 1299 CHKCNT2 1300 DSKBUFF 
<148> 1301 DSKDATA 1302 DISKROM 1303 SLOTMR 
<149> 1304 FASTMR 1306 READS 1307 WRT 
<150> #1308 UNCLAMP 1309 FMT 1310 VFY 
<151> 1311 CLAMP 1312 OK 1314 SEEK 
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<152> 1317 EXRW 1318 CLRSTAT 1319 ENBLINT 
<153> 1320 DSABLINT 1321 SLEEP 1322 DIE 
<154> 1324 DRV1 1325 DRV2 1326 TRK1 
<155> 1327 TOPSIDE 1328 BOTSIDE 1331 HDRLEN 
<156> 1332 SECLEN 1333 TWGHDR 1334 TWGDATA 
<157> 1337 HDRLEN 1338 SECLEN 1339 TWGHDR 
<158> 1340 TWGDATA 1341 LASTBLK 1342 DSKSIZE 
<159> 1347 STATSTRT 1348 STATSAV 1349 STATSUM 
<160> 1350 STATWRDS 1352 PMSTRT 1353 DVCCODE 
<161> 1354 MEMCODE 1355 MOUSEON 1356 EXMEM 
<162> 1357 PMCHKSM 1358 PMWRDS 1363 TIMOUT 
<163> 1364 WRPERR 1365 DRVERR 1366 FMTERR 
<164> 1367 RDWRERR 1369 CMDTIME 1370 FDIRTIME 
<165> 1373 DRVERR 1374 NODISK 1375 WRPERR 
<166> 1376 CLMPERR 1377 RDWRERR 1378 UCLMPERR 
<167> 1379 BADTHDR 1380 TIMOUT 1382 CMDTIME 
<168> 1383 FDIRTIME 1384 VFYTIME 1385 EJCTTIME 
<169> 1386 DSKTMOUT 1387 INSRTTIM 1388 FMTTIME 
<170> 1393 DSK1IN 1394 BUTN1 1395 RWF1 
<171> 1396 DSK2IN 1397 BUTN2 1398 RWF2 
<172> 1402 DSKIN 1403 BUTN 1405 DRVTYPE 
<173> 1413 PROFLE 1414 ocD 1415 BSY 
<174> 1416 CMDBUFR 1417 STATBFR 1418 STAT1 
<175> 1419 STAT2 1420 STAT3 1421 STATA 
<176> 1422 STATMSK 1423 PCMDSZ 1424 PCMD 
<177> 1425 BLKH 1426 BLKM 1427 BLKL 
<178> 1428 RETRY 1429 THRESH 1430 HDRBUFR 
<179> 1431 FILEID 1432 BOOTPAT 1433 DATABFR 
<180> 1434 HDRSIZE 1435 BLKSIZE 1436 STRTIME 
<181> 1437 RSTRTIME 1438 RDTIME 1439 BSYTIME 
<182> 1440 RSPTIME 1441 RCNT 1442 TCNT 
<183> 1447 TMOUT 1448 NODSK 1449 DSKBSY 
<184> 1450 BADRSP 1451 STATNZ 1452 BADHDR 
<185> 1454 NODSK 1455 DSKBSY 1456 BADRSP 
<186> 1457 STATNZ 1458 BADHDR 1459 TMOUT 
<187> 1467 SLOT1L 1468 SLOT2L 1469 SLOT3L 
<188> 1470 STBIT 1471 ICBIT 1472 TSTBIT 
<189> 1473 STENTRY 1474 BTENTRY 1475 ICONPTR 
<190> 1476 APPLENET 1477 APPLQUAL 1478 TSTCRD 
<191> 1479 TSTQUAL 1484 NOC 1485 INV 
<192> 1486 BADSM 1487 BADST 1489 NOC 
<193> 1490 INV 1491 BADSM 1492 BADST 
<194> 1502 INITFLG 1503 HOURSAV 1504 LCNTHI 
<195> 1505 LCNTLO 1506 TIMFLG 1507 MINSAV 
<196> 1508 DSKCNTH 1509 DSKCNTL 1510 CLKSAVE 
<197> 1511 ALRMSAV 1512 CYCLCNT 1513 CYCLVAL 
<198> 1514 MINCNT 1515 ENDPM 1516 SET1 
<199> 1517 SET2 1518 HOUR 1519 MINUTE 
<200> 1520 ONEHOUR 1521 ONEMIN 1522 TENSECS 
<201> 1523 DLYTIME 1534 QUESTN 1535 RET 
<202> 1536 BS 1540 KEY4 1541 KEY5 
<203> 1542 KEY6 1543 KEY7 1544 KEY8 
<204> 1545 KEY9 1546 SKEY 1547 CmdDwn 
<205> 1548 CmdUp 1549 MousUp 1553 KBDBFR 
<206> 1554 KBDEND 1557 CRTROW 1558 CRTCOL 
<207> 1560 CRTROW 1561 CRTCOL 1564 MAXTEST 
<208> 1567 FIRSTROW 1568 FIRSTCOL 1569 LASTROW 
<209> 1570 LASTCOL 1575 ROWBYTES 1576 MaxX 
<210> 1577 MaxyY 1578 MENULINE 1579 DESKLINE 
<211> 1580 DESKLMT 1581 DESKPATRN 1583 WROW 
<212> 1584 WCOL 1585 WINDWIDTH 1586 WINDHIGH 
<213> 1587 WMIDROW 1588 WMIDCOL 1589 W14COL 
<214> 1590 W34COL 1591 WINDSTRT 1593 ALBOXROW 
<215> 1594 ALBOXCOL 1595 ALRTWIDTH 1596 ALRTHIGH 
<216> 1597 ALRTSTRT 1598 MIDALROW 1599 MIDALCOL 
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<217> 
<218> 
<219> 
<220> 
<221> 
<222> 
<223> 
<224> 
<225> 
<226> 
<227> 
<228> 
<229> 
<230> 
<231> 
<232> 
<233> 
<234> 
<235> 
<236> 
<237> 
<238> 
<239> 
<240> 
<241> 
<242> 
<243> 
<244> 
<245> 
<246> 
<247> 
<248> 
<249> 
<250> 
<251> 
<252> 
<253> 
<254> 
<255> 
<256> 
<257> 
<258> 
<259> 
<260> 
<261> 
<262> 
<263> 
<264> 
<265> 
<266> 
<267> 
<268> 
<269> 
<270> 
<271> 
<272> 
<273> 
<274> 
<275> 
<276> 
<277> 
<278> 
<279> 


<QBO> HIRI II I IK IK I IK IK IK KKK IKI IKI HK IK KI HK IK IIHR IK IA HI KIA IK IK IARI KIA HRI KIA HI KIARA KIARA ERIK 
<281> * FILE LABEL STATISTICS 


1601 
1604 
1607 
1610 
1614 
1617 
1620 
1626 
1631 
1634 
1637 
1642 
1646 
1649 
1652 
1655 
1659 
1663 
1666 
1669 
1672 
1676 
1680 
1683 
1686 
1689 
1692 
1695 
1698 
1703 
1706 
1709 
1713 
1717 
1721 
1727 
1732 
1735 
1739 
1742 
1745 
1749 
1752 
1756 
1762 
1768 
1772 
1782 
1785 
1788 
1791 
1794 
1798 
1802 
1805 
1809 
1812 
1815 
1818 
1821 
1824 
1827 
1830 


BINWIDTH 
BTNMSPC 
BTN1STRT 
BTN1MSG 
MENUSTRT 
MENUWIDTH 
MBARLEN 
BMENUWIDTH 
DBOXWIDTH 
DBOXLEFT 
DBOXCOL 
SVCSTRT 
FIRSTROW 
CHARROWS 
ROWLINES 
CHRHIGH 
ICONWIDTH 
TSTCOL 
TSTWHIGH 
MIDTSTROW 
TSTICOL 
MEMSTRT 
ERRROW 
ALRTROW 
CODECOL 
MEMROW 
DISKCOL 
DRVROW 
INSRTCOL 
DEFSTRT 
COL2STRT 
ICONCSPC 
ALTKYADDR 
PCSTRT 
ROMIDROW 
GLOBALS 
MousY 
MousScaling 
CrsrHoty 
CrsrY 
CrsrVisible 
SavedData 
SavedRows 
MsgLen 
MenuBase 
DRIVE 
RectCnt 
SIZRSLT 
PEADDR 
MMURSLT 
BOOTDATA 
ADRREGS 
SERNUM 
XPCTDATA 
PEADR2 
EXCFC 
EXCSR 
SUPSTK 
I02ID 
IO2STAT 
STATFLGS 
SCCRSLT 
SYSTYPE 


1602 
1605 
1608 
1611 
1615 
1618 
1622 
1627 
1632 
1635 
1639 
1643 
1647 
1650 
1653 
1656 
1660 
1664 
1667 
1670 
1673 
1677 
1681 
1684 
1687 
1690 
1693 
1696 
1701 
1704 
1707 
1710 
1715 
1718 
1722 
1730 
1733 
1736 
1740 
1743 
1746 
1750 
1753 
1759 
1763 
1769 
1773 
1783 
1786 
1789 
1792 
1795 
1799 
1803 
1806 
1810 
1813 
1816 
1819 
1822 
1825 
1828 
1831 


BTNHIGH 
BTNROW 
BIN2STRT 
BTN2MSG 
MENULEN 
MENULOC 
MITEMS 
BMENULEN 
DBOXHIGH 
DBOXSTRT 
SVCTOP 
SVCWIDTH 
FIRSTCOL 
LASTROW 
ROWLEN 
CHRWIDTH 
ICONHIGH 
TSTWSTRT 
TSTMROW 
CHKROW 
TSTISPC 
IOSTRT 
ERRCOL 
ALRTCOL 
MSGROW 
MEMCOL 
SLOTROW 
DRVCOL 
DEFROW 
ALTCOL 
COL2MID 
ICONMSPC 
PCWIDTH 
PCROW 
ROMIDCOL 
ClockBytes 
MousDx 
MousThresh 
CrsrHeight 
CrsrTracking 
CrsrHidden 
SavedxX 
SavedAddr 
IconBase 
IconAddr 
BLKNUM 
RectTable 
MEMRSLT 
ADRLTCH 
KEYID 
CLKDATA 
A6SAV 
KBDQPTR 
ACTADDR 
PCHPROW 
EXCADR 
EXCPC 
MAXMEM 
I03ID 
IO3STAT 
MINMEM 
MEMSLOT 
KBDQ 


1603 
1606 
1609 
1612 
1616 
1619 
1623 
1628 
1633 
1636 
1641 
1644 
1648 
1651 
1654 
1657 
1662 
1665 
1668 
1671 
1675 
1678 
1682 
1685 
1688 
1691 
1694 
1697 
1702 
1705 
1708 
1711 
1716 
1719 
1725 
1731 
1734 
1738 
1741 
1744 
1747 
1751 
1755 
1760 
1766 
1770 
1781 
1784 
1787 
1790 
1793 
1796 
1801 
1804 
1807 
1811 
1814 
1817 
1820 
1823 
1826 
1829 
1832 


BTNSPC 
BTNCOL 
BTN3STRT 
BTN3MSG 
MENUSPC 
MENU1MSG 
MENUEND 
BMENUSPC 
DBOXTOP 
DBOXROW 
SVCLEFT 
SVCHIGH 
ROWSLEFT 
LASTCOL 
NROWS 
CHRSPC 
TSTROW 
TSTWWIDTH 
TSTMCOL 
TSTIROW 
CPUSTRT 
XCRDSTRT 
ERRSTRT 
CODEROW 
MSGCOL 
DISKROW 
SLOTCOL 
INSRTROW 
DEFCOL 
COL1STRT 
COL3STRT 
ICONRSPC 
PCHIGH 
PCCOL 
GLOBALS 
MousX 
MousDy 
CrsrHotx 
Crsrx 
CrsrBusy 
CrsrObscured 
SavedY 
LwrRight 
IconAddr 
IconCnt 
CONTXT 
STATUS 
BOOTMEM 
D7SAV 
BOOTDVCE 
DATARGS 
USPSAV 
XPCTADDR 
ACTDATA 
PCHIP 
EXCIR 
EXCTYPE 
IO1ID 
IOLSTAT 
IOROM 
TOTLMEM 
DSKRSLT 
QEND 


ene 
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<QBQ> HHH KKHKKKKHK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKKK 

<283> File Lines = 1838 

<284> Label Count = 801 

<285> Local Label Count = 6 

<286> Min Label Length = 2 RO 

<287> Max Label Length = 12 BytesPerRead 

<288> Avg Label Length = 6 

<289> Std Dev Label Length = 1.61 

<290> 

<291> Label Length Frequency Counts: 

<292> No. Labels with Length 2: 13 

<293> No. Labels with Length 3: 29 

<294> No. Labels with Length 4: 108 

<295> No. Labels with Length 5: 113 

<296> No. Labels with Length 6: 174 

<297> No. Labels with Length “7: 231 

<298> No. Labels with Length 8: 107 

<299> No. Labels with Length 9: 14 

<300> No. Labels with Length 10: 6 

<301> No. Labels with Length 11: 2 

<302> No. Labels with Length 12: 4 

<BO3> KEK KHHKHKKHK KKK KKKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KEKE KKKKKEKKKK 

<304> * END OF FILE: RM248.E.TEXT 

ZBO5 > KHEHKKHKHK KKH KKK KKK KKK KEK KK KK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKEKKKK 

<306> 

<307> 

<BOB> KKK KHKHK KKH KKK KKK KKK KEK KK KKK KK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKKK 

<309> * LABEL INFO FOR FILE : RM248.K.TEXT 

SBLOD> KEK KHHK KKH KKK KKKK KK KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKEKKKK 

<311> 13 BASE 22 BUSVCT 24 ADRVCT 

<312> 26 ILLVCT 28 DIVOVCT 30 CHKVCT 

<313> 32 TRAPVCT 34 PRIVCT 36 TRCVCT 

<314> 38 L10VCT 40 LlivcT 48 EXCPERR 

<315> 58 SAVEREGS 60 SAVEREG2 70 SVCMSG 

<316> 77 SPURVCT 79 LVLIVCT 81 LVL2VCT 

<317> 83 LVL3VCT 85 LVLAVCT 87 LVL5VCT 

<318> 89 LVL6VCT 91 LVL7VCT 104 JMPTBL 

<319> 155 SPIN 167 NMIEXCP 181 BEGIN 

<320> 216 BEGIN2 232 BEGIN3 246 ROMTST 

<321> 252 DOSUM 276 MMUTST 295 MMUERR 

<322> 302 MMULP 314 TSTLOOP 315 REGTST 

<323> 331 MMUINIT 344 MMURW 348 RWCHK1 

<324> 351 RWCHK2 353 RWCHK3 359 CHKBASE 

<325> 374 MMUACHK 379 ACHK1 384 MMUSET 

<326> 391 ACHK2 403 MADRERR 416 CHKRW 

<327> 425 RWERR 436 SETMMU 445 LOADORG 

<328> 465 LOADLMT 494 MMUTST2 548 MMUERR2 

<329> 549 MMUERR3 554 MMULPCHK 565 CONCHK 

<330> 579 CONOK 616 INITMMU 623 RWLOOP 

<331> 629 CHKBASE 645 START 659 MEMSIZ 

<332> 670 CHKLO 706 SAVELO 718 TSTHI 

<333> 733 CHKHI 744 SAVEHI 748 WRAPXIT 

<334> 750 SIZXIT 760 CHKMEM 803 LOTONE 

<335> 827 RSTMMU 846 REMAP 856 MAPINV 

<336> 882 WRIMMU 907 READMMU 947 MEMTST1 

<337> 967 TONEDLY 980 CLRMEM 988 INITMEM 

<338> 1013 INITVCT 1018 SETVCTRS 1047 SETBUSVCT 

<339> 1056 MISC 1061 IERR 1066 NMI 

<340> 1080 NOTPE 1083 TRPERR 1088 BERR 

<341> #1093 AERR 1097 EXCPO 1102 EXCP1 

<342> 1114 SCCSET 1125 VIA2TST 1127 VIA2CHK 

<343> 1156 VIA2VCT 1169 VIATST 1182 VIARW 

<344> 1203 VIAFAIL 1205 VIARWEND 1213 CONSET 

<345> 1216 CONOFF 1218 CONSET2 1239 SCRNTST 

<346> #1269 SCRNERR 1271 SCRNOK 1286 SCRNSAV 
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<347> 
<348> 
<349> 
<350> 
<351> 
<352> 
<353> 
<354> 
<355> 
<356> 
<357> 
<358> 
<359> 
<360> 
<361> 
<362> 
<363> 
<364> 
<365> 
<366> 
<367> 
<368> 
<369> 
<370> 
<371> 
<372> 
<373> 
<374> 
<375> 
<376> 
<377> 
<378> 
<379> 
<380> 
<381> 
<382> 
<383> 
<384> 
<385> 
<386> 
<387> 
<388> 
<389> 
<390> 
<391> 
<392> 
<393> 
<394> 
<395> 
<396> 
<397> 
<398> 
<399> 
<400> 
<401> 
<402> 
<403> 
<404> 
<405> 
<406> 
<407> 
<408> 
<409> 
<410> 
<411> 


1305 SETVLTCH 1322 INVTST 1343 VIA1TST 
1356 VIA1CHK 1375 DSPCPURM 1388 COPSENBL 
1401 COPSBAD 1410 COPSVvCcT 1411 IOvCcT 
1418 CPSINIT 1426 TURNON 1452 COPSCMD 
1539 RSTSCAN 1556 RSTO 1563 GETO 
1569 RST2 1579 RST1 1604 GETJMP 
1609 RSTXIT 1622 MSCHK 1638 SCANERR 
1641 IOCERR 1651 SCANXIT 1673 GETDATA 
1685 GETIT 1700 RSTKBD 1717 CLRRST 
1727 DELAY 1 1730 DELAY5 1733 KBDDELAY 
1737 DELAY 1746 BEEP 1754 CLICK 
1767 TONE 1774 TONE2 1800 SILENCE 
1810 NOIO 1821 NOIO2 1828 NOIO3 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKKKKKKEKKKKKKKEKKKKKEKEKRKKKKEKKKKKKEKRKEKKKKKKKKKKKKK 


* FILE LABEL STATISTICS 
KKK KKK KKK KEKE KK IKKE 


File Lines = 1833 

Label Count = 147 

Local Label Count = 50 

Min Label Length = 3 NMI 

Max Label Length = 9 SETBUSVCT 
Avg Label Length = 6 

Std Dev Label Length = 1.11 


Label Length Frequency Counts: 


No. Labels with Length 3: 1 
No. Labels with Length 4: 13 
No. Labels with Length 5: 26 
No. Labels with Length 6: 47 
No. Labels with Length 7: 50 
No. Labels with Length 8: 9 
No. Labels with Length 9: 1 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKKKKEKRKEKKKKEKRKKKKKKRKKKKKKKKKKKKKK 


* END OF FILE: RM248.K.TEXT 
KKK KKK KKK KEK KERRI KKK RIKI KKH KI KKK KEIRA KIKI KARE KKK KKK KERRIER EKER ERR 


KKKKKKKKKKKKKKEKKK KKK KKK KKK KKK KKK KKK KKKKKKRKEKKKKKKEKKEKKKKEKRKEKKKEKRKKKRKKKEKKKKKKKKKKKKKK 


* LABEL INFO FOR FILE : RM248.S.TEXT 
KKK IKK KIKI KKK KKK KKK IKK RIKKI KKK KKK KKK AERA KKK KEKREERERERERKEK 


15 VIDTST 23 VIDCHK 47 VIDERR 
54 VIDXIT 95 RDSERN 122 GetBits1: 
152 GetBits2: 179 GetBytes: 213 CheckSum: 
250 Exit: 263 FindSync: 288 GetNibbles: 
306 Tag 324 PARTST 372 PARERR 
381 PARXIT 388 WWPERR 395 VIA1VCT 
414 MEMTST2 423 MEMLOOP 457 TSTDONE 
472 RUNTESTS 476 BASICTST 478 CALL3 
493 BASICTST 495 CALL3 502 TSTDONE 
517 TSTINIT 530 SAVRSLT 565 RAMTEST 
571 RAMRW 576 RAMCHK2 584 RAMNXT 
592 ADRTST 598 ADRCHK 602 ADRCLR 
614 RDERR 633 PRTYINT1 671 TSTSTAT 
685 PRTYINT2 718 PRIXIT 723 PCERR 
740 GETPADDR 752 IOTST 792 SCCTEST 
799 VECTLOOP 822 b96data: 831 b961th 
833 SETSCC 840 LPTEST 842 SCCLOOP 
848 SCCOUT 851 SCCLOOP2 857 SCCIN 
865 SCCLXIT 867 SCCLERR 871 SCCEXIT 
903 WRITESCC 914 INITBDATA 917 INITBLTH 
919 INITB2 920 INITB2L 922 RSTSCC 
939 SCCVCT 959 DSKTST 1018 INTERR 
1023 DSKXIT 1033 DSKVCT 1053 SETTYPE 
1074 COPSCHK 1089 SCANCPS 1095 KEYSCAN 
1165 XLATE 1178 KEYTBL 1186 TBLEND 


eee 
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<412> 
<413> 
<414> 
<415> 
<416> 
<417> 
<418> 
<419> 
<420> 
<421> 
<422> 
<423> 
<424> 
<425> 
<426> 
<427> 
<428> 
<429> 
<430> 
<431> 
<432> 
<433> 
<434> 
<435> 
<436> 
<437> 
<438> 
<439> 
<440> 
<441> 
<442> 
<443> 
<444> 
<445> 
<446> 
<447> 
<448> 
<449> 
<450> 
<451> 
<452> 
<453> 
<454> 
<455> 
<456> 
<457> 
<458> 
<459> 
<460> 
<461> 
<462> 
<463> 
<464> 
<465> 
<466> 
<467> 
<468> 
<469> 
<470> 
<471> 
<472> 
<473> 
<474> 
<475> 
<476> 


1193 CLKTST 1206 READCLK 1212 RDCLKO 
1224 RDCLK1 1233 CLKERR 1246 CONFIG 
1252 CONFIG2 1275 RDSLOTS 1291 NOCRD1 
1293 SLOT2 1302 NOCRD2 1304 SLOT3 
1313 NOCRD3 1317 CFGEXIT 1328 CHKID 
1348 TSTCHK 1354 TST2 1434 EXCHK 
1486 IOCHK 1576 ERRDISP 1589 KBDCHK 
1610 MEMCHK 1635 CHKMADR 1644 SCNRSLTS 
1671 MERRCHK 1681 MEMERR 1697 IOSCHK 
1731 TSTXIT 1739 TSTXIT2 1768 GOTOMON 
1777 PMvcT 1801 OTHER 1844 DSPCODE 
1867 DSPDEC 1869 GETDIG 1901 DSPCXIT 
1908 OUTCHR 1926 OUTCH 1944 OUTNIB 
1951 ALPHA 1954 DSPCH 1964 NOTIFY 
1977 HIPTCH 1984 LOPTCH 1985 SETDUR 
1997 SYSOK 2010 NOTOK 2022 DSPROMS 


KKRKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KEKE KEKE KKK KKEKRKEKKKKEKRKEKKRKEKRKKKKKERKKKKKKRKKKKKKKK 


* FILE LABEL STATISTICS 
KKK KKK KKK KKK KIKI KIRK KKK KIKI KAIRIE KIRKE KK IKKKKEREKEKKEKA RE RRERERERK EK 


File Lines = 2032 

Label Count = 123 

Local Label Count = 100 

Min Label Length = 3 Tag 

Max Label Length = 11 GetNibbles: 
Avg Label Length = 6 

Std Dev Label Length = 1.18 

Label Length Frequency Counts: 


No. Labels with Length 3: 1 
No. Labels with Length P 


4 
No. Labels with Length 5: 21 
No. Labels with Length 6: 49 
No. Labels with Length 7: 32 
No. Labels with Length 8: 12 
No. Labels with Length 9: 6 
No. Labels with Length 10: 0 
No. Labels with Length 11: 1 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KEKE KKKEKRKEKKKEEKKKKKEKRKEKKKKKKKKKKKKK 


* END OF FILE: RM248.S.TEXT 
KKK KKK KKK KEK KIRKE KIRKE KAIRIE KKK IKKKEKRRKEKKEKEKREERERERERKEK 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKKKKKEKKEKKKKEKRKKKKEKEKEKKKKEKKEKKKKKKRKKKKKKKK 


* LABEL INFO FOR FILE : RM248.B.TEXT 
KKK IKK KIRKE KK KIKI KIRKE KAKI KKK KEIRA KEKE RRA KKKEKEREEKKEKEKREEREREREREEK 


7 DOBOOT 9 BOOTCHK 80 DVCECHK 
173 PMEXIT 185 PMERR 193 LSTCHK 
214 CHKPM 227 SAV2PM 256 WRTSUM 
278 VFYCHKSM 281 CKLOOP 293 CKXIT 
300 EXPAND 321 EXPAND 345 SEARCH 
364 BOOTMENU 426 ICONCHK 464 SCNSLTS 
473 CHKS2 480 CHKS3 491 WT4BOOT 
511 CHKPROFILE 562 DSPMNTRY 585 ICONMENU 
668 CHKSLOT 686 CHKICONS 706 CHKSXIT 
719 RDSLT 749 TWGBOOT 784 CLRINT 
792 DOREAD 807 RDRETRY 824 RDSCTR1 
841 STRTBOOT 854 DSKTIMERR 857 DSKCHK 
878 DSKBAD 885 DSKOUT 887 DSKDIS 
889 DSKERR 922 TBOOTERR 933 DSKERR2 
935 DSKERR3 938 SAVEXCP 944 BTERR 
963 DSABLDSK 981 CHKDRIVE 1020 TWGRD 

1023 TWGREAD 1050 XFRHDR 1057 XFRDATA 
1065 XFRHDR 1074 XFRDATA 1090 TWGOUT 

1092 TWGERR 1096 TWGOK 1099 TWGRXIT 
1112 CMDCHK 1135 CHKFIN 1156 EJCTDSK 


eee 
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<AT71> 
<478> 
<479> 
<480> 
<481> 
<482> 
<483> 
<484> 
<485> 
<486> 
<487> 
<488> 
<489> 
<490> 
<491> 
<492> 
<493> 
<494> 
<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 
<531> 
<532> 
<533> 
<534> 
<535> 
<536> 
<537> 
<538> 
<539> 
<540> 
<541> 


1174 CLRFDIR 1190 CHKFDIR 1202 CLAMPIT 
1223 WAITALRT 1224 DSPWTICON 1246 VCTRINIT 
1272 PROBOOT 1297 PBOOT 1306 HDSKERR 
1337 BOOTFAIL 1340 BFAIL2 1349 HDERR2 
1350 HDERR3 1374 PROREAD 1385 CHKBSY 
1395 TRYRD 1422 RDDATA 1433 PROERR 
1439 PROXIT 1442 PROXIT2 1457 PROINIT 
1480 READIT 1501 STRTRD 1516 GETSTAT 
1522 STRTXIT 1533 STATO1 1547 COPY6 
1550 COPY6LP 1556 STATERR 1558 STATXIT 
1571 FINDD2 1578 GETRSP 1585 RSPOK 
1587 SNDR1 1594 FINDERR 1601 FNDXIT 
1614 WFBSY 1616 WFBSY1 1629 SENDRSP 
1644 WFNBSY 1647 WFNBSY2 1650 WFNBSY3 
1652 WFNBSY1 1663 DOCRES 1690 IOSBOOT 
1717 STATOK 1724 NOCRD 1729 INVID 
1732 BADBRD 1734 SENDMSG 1778 RDIOSLT 
1789 LOADPGM 1820 INVSUM 1822 SAVERR 
1825 RDIOXIT 1841 CHKPASS 1843 CHKPAS2 
1846 CLRPM 1877 CHKTIM 1905 TWGCHK 
1939 TSTERR 1950 DISINT 1957 WRIMSG 
1965 CNTINC 1969 DSPTIM 1984 NOCHG 
2005 SHUTDOWN 2013 DSCONT 2046 SELF 
2049 SETERR1 2052 SETERR2 2054 DSPERR 
2068 CMDERR 2079 TODSET 2087 SETXIT 
2100 TWGTST 2107 TWGLOOP 2122 TOOLONG 
2123 TERR 2131 DSPCLK 2170 TWGDSP 


2194 DSPDVC 
KKKKKKKKKKKKKKEKKEKKKK KKK KKK KKK KEK KKK KKK KKKRKEKKKKK KEK KKK KKEKRKKKRKEKKEKKKEKKEKRKKKKKKRKKKKKKKK 


* FILE LABEL STATISTICS 
KKK KKK KKK KKK KIRKE KIRK KKK KAIRIE RRR KARR KEK KKK KKK KR KIEKRE RK ERERERK EK 


File Lines = 2203 

Label Count = 142 

Local Label Count = 86 

Min Label Length = 4 SELF 

Max Label Length = 10 CHKPROFILE 
Avg Label Length = 6 

Std Dev Label Length = 0.98 


Label Length Frequency Counts: 


No. Labels with Length 4: 2 
No. Labels with Length 5: 19 
No. Labels with Length 6: 58 
No. Labels with Length 7: 47 
No. Labels with Length 8: 13 
No. Labels with Length 9: 2 


No. Labels with Length 10: 1 
KKRKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KEKE KKK KEKE KKKRKEEKKKKKKERKKKKKKKKKKKKKK 


* END OF FILE: RM248.B.TEXT 
KKK KKK KKK KEK KKK KKK KEIR KKH KIRKE KK KIKI KIRK KI KARRI KEK KKK EK 


KKKKKKKKKKKKKKKKKKKEK KKK KKK KKK KKK KKK KKK KEKE KEK KKKKKEKRKEKKRKKEKRKEKKKKRKKKKKKKKKKKKKK 


* LABEL INFO FOR FILE : RM248.M.TEXT 
KKK IKK KIKI KKK KEK KIKI KARR KEIR IKI KK RRR KAKA KEKE RIERA RRR EREREEK 


7 INITMON 14 INIT1 22 INIT2 

42 INIT3 71 MONITOR 87 LEVEL1 
110 OTHRBTNS 113 DOMENU 139 GETL1 
180 DORESET 185 CONTCHK 244 GETL1XIT 
249 LEV1LOOP 255 GETERR 268 CLRSCRN 
269 WRTSCRN 282 CLRBOX 289 CLRIT 
299 WRTMENU 314 DRWLINE 320 DRWIT 
330 WRTBOX1 351 ReadKey 362 ReadKey 
374 SQUAWK 386 KeyToAscii 405 LEVEL2 
431 DSPMENU 446 GETLEV2 455 DSPMENU 


eoses 
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<542> 
<543> 
<544> 
<545> 
<546> 
<547> 
<548> 
<549> 
<550> 
<551> 
<552> 
<553> 
<554> 
<555> 
<556> 
<557> 
<558> 
<559> 
<560> 
<561> 
<562> 
<563> 
<564> 
<565> 
<566> 
<567> 
<568> 
<569> 
<570> 
<571> 
<572> 
<573> 
<574> 
<575> 
<576> 
<577> 
<578> 
<579> 
<580> 
<581> 
<582> 
<583> 
<584> 
<585> 
<586> 
<587> 
<588> 
<589> 
<590> 
<591> 
<592> 
<593> 
<594> 
<595> 
<596> 
<597> 
<598> 
<599> 
<600> 
<601> 
<602> 
<603> 
<604> 
<605> 
<606> 


500 WRIMENU 549 DSPMENUBOX 579 MAKESVCW 
595 DSPMEM 620 RDCNT 670 SETMEM 
694 RDDTA 740 CALLRITN 773 LOOPTST 
864 MMUTSTE1 869 NOSCCTST 875 MEMTST3 
882 LOOPTBL 907 VIDAJST 944 DRWHORZ 
961 DRWVERT 988 PowerCycle 999 INVALID 
1010 LEV2LOOP 1012 INVXIT 1022 NOTAVAIL 
1039 SETCUR 1051 CLRCUR 1069 SCROLL 
1087 PUTLF 1099 PUTBS 1109 PROMPT 
1130 RDINPUT 1135 READIN 1175 PROMPT 
1192 RDINPUT 1197 READIN 1234 SCROLL 
1268 PUTLF 1281 PUTBS 1289 CLRIT 
1300 ENQKBD 1313 GETCH 1325 GETA 
1342 GETPARM 1345 READQ 1361 OKCH 
1368 GETEXIT 1371 INVPARM 1373 GETXIT2 
1380 CONVERT 1396 DBOXDSPLY 1410 CLRDBOX 
1429 GETINPUT 1433 GET1 1435 CHKIT 
1479 GET2 1481 WAIT2 1483 CHKIT2 
1516 GET3 1517 WAIT3 1542 WI4INPUT 
1546 COPSO 1555 COPS1 1565 COPS2 
1608 COPS4 1629 ReadCOPS 1644 PowerOff 
1673 ENBLDRVS 1713 CHKPOSN 1719 GETNTRY 
1763 CHKPXIT 1792 CHKINPUT 1796 RDENTRY 
1823 INVERT 1940 MouseMovement 1948 Scale 
1960 Fine 1972 Coarse 1981 Bounds 
2010 MousInit 2060 Cursorinit 2091 CursorHide 
2127 CursorDisplay 2232 NMISET 2238 RSTOR 
2310 CursorInit 2331 NMISET 2337 CMDDONE 
2341 DEPOSIT 2343 DEMLOOP 2357 READ 
2367 WRITE 2379 RDMULTI 2390 WRMULTI 
2400 CHKHDR 2435 CHKSUM 2444 ECHOSUM 


KKKKKKKKKKKKKKEKKKKKK KKK KKK KKK KKK KKK KKK KEKE KEKE KKKKKEKRKKKKEKRKKKKKKEKKKKKKKKKKKKKK 


* FILE LABEL STATISTICS 
KKK KKK KKK KEKE KIRKE KIRK KKK KKK KAI KKK KR KEKKKEKIKKEKRKI KKK RR E KKK 


File Lines = 2452 

Label Count = 123 

Local Label Count = 122 

Min Label Length = 4 GETA 

Max Label Length = 13 MouseMovement 
Avg Label Length = 6 

Std Dev Label Length = 1.60 


Label Length Frequency Counts: 


No. Labels with Length 4: 7 
No. Labels with Length 5: 25 
No. Labels with Length 6: 26 
No. Labels with Length 7: 41 
No. Labels with Length 8: 15 
No. Labels with Length 9: 1 
No. Labels with Length 10: 6 
No. Labels with Length 11: 0 
No. Labels with Length 12: 0 
No. Labels with Length 13: 2 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KEKEKKKK KKK KKKKEKRKEKKKKEKRKEKKKKEKRKKKKKKKKKKKKKK 


* END OF FILE: RM248.M.TEXT 
KKK KKK KKK KEK KKK KKK KIRK KIRKE KAIRIE KKK KERR KEKE EKER ERE EK 


KKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KEKE KEKE KEKEKRKKKRKEKRKKKKKKRKKKEKKKKKKKKKKK 


* LABEL INFO FOR FILE : RM248.G.TEXT 
KKK KKK KKK KEK KIRKE KKH KIKI KAIRIE KARRI KARR KERRIER EERE 


33 DRAWDESK 40 CLRDESK 59 gray 

61 grayl 92 BLACKEN 95 whiten 
112 CLRMENU 151 PAINT _BOX 153 paintbl 
156 inverse 157 cont 159 paintb2 


ene 


The Legacy of the @ Lisa: An Outsider’s View [Chapter XXX] | REVISION 1 36of 80 


<607> 
<608> 
<609> 
<610> 
<611> 
<612> 
<613> 
<614> 
<615> 
<616> 
<617> 
<618> 
<619> 
<620> 
<621> 
<622> 
<623> 
<624> 
<625> 
<626> 
<627> 
<628> 
<629> 
<630> 
<631> 
<632> 
<633> 
<634> 
<635> 
<636> 
<637> 
<638> 
<639> 
<640> 
<641> 
<642> 
<643> 
<644> 
<645> 
<646> 
<647> 
<648> 
<649> 
<650> 
<651> 
<652> 
<653> 
<654> 
<655> 
<656> 
<657> 
<658> 
<659> 
<660> 
<661> 
<662> 
<663> 
<664> 
<665> 
<666> 
<667> 
<668> 
<669> 
<670> 
<671> 


183 

193 

223 

300 

450 

604 

773 

877 

908 

957 
1054 
1139 
1168 
1194 
1209 
1238 
1248 
1291 
1350 
1394 
1436 
1487 
1581 
1635 
1689 
1722 
1730 
1742 
1769 
1802 
1839 
1865 
1910 
1924 
1933 
1939 
1946 
1957 
1967 
1973 
1985 
2006 
2027 
2035 
2045 
2056 
2105 
2111 
2119 
2125 
2143 
2157 


KKRKKKKKKKKKKKKEKKK KKK KKK KKK KKK KKK KKK KKKRKEKKKEKKKKKKKEKKKKKKEKKEKKKKEKRKKKKKEKRKKKKKKKKKKKKKK 


* FILE LABEL STATISTICS 
KK KIKI K KKK KKK IKK KIKI KIKI KAIRIE KIRKE KAKI KERRIER RRR E REE 


startop 
compare 
MAKEALERT 
MAKEWINDOW 
paintvl 
DRAWBUTN 
WRITETITLE 
DSPRGICON 
loopl 
DSPNUM 
MRGICON 
INVICON 
DSPIOB 
CHKCPU 
CHKXCRD 
DLOOP 
CHECK 
DSPSTRING 
DSPFRNCH 
DSPMSLSH 
DSPMSGR 
SETCRSR 
OUTPUT 
SPACE 
INVCHAR 
CrsrData 
TWO 
CPUbrd 
waiticon 
driven 
mouseout 
badmrk 
INITMSG 
IORMMSG 
IOMSG 
BOOTERR 
EXCPMSG 
BADBOOT 
TWGMSG 
TWGFAIL 
LEV1MSG 
RTRYMSG 
PERIODS 
SETMSG 
VIDMSG 
MENUID 
ADDRMSG 
DRVMSG 
ADDRMSG 
TSTMSG 
VRSN 
VRSN 


File Lines 
Label Count 
Local Label Count 


Min 
Max 


Avg 


Label Length Frequency 


Label Length 
Label Length 
Label Length 
Std Dev Label Length 


2 


1 


186 

199 

241 

341 

481 

670 

827 

900 

910 
1027 
1087 
1158 
1173 
1199 
1213 
1241 
1253 
1333 
1355 
1408 
1460 
1489 
1616 
1638 
1693 
1723 
1731 
1752 
1783 
1810 
1848 
1875 
1915 
1926 
1935 
1941 
1950 
1963 
1969 
1975 
1988 
2013 
2030 
2037 
2049 
2074 
2107 
2113 
2121 
2130 
2146 
2158 


165 
168 
37 


movinst 
nextline 
MAKETEST 
MAKEBOX 
PAINTBIT 
DRAWSIDES 
GETROWCOL 
OUTPUT 
loop2 
DSPERRICON 
DSPALRTICON 
DSPCPU 
DSPXCRD 
CHKMBRD 
DSPCHECK 
MLOOP 
DONE 
DSPALL 
DSPOUT 
DSPALRTMSG 
DSPMSG 
SETCRSR2 
out 
FONTTBL 
APPLICON 
CrsrMask 
THREE 
MEMbrd 
proicon 
insertd 
Question 
diskette 
CROMMSG 
CPUMSG 
IOSMSG 
DVCMSG 
BOOTMSG 
BRNMSG 
LOOPMSG 
TWGRSLT 
LEV2MSG 
CONTMSG 
MENUHDG 
CALLMSG 
CYCLMSG 
NOTAMSG 
DATAMSG 
DVCEMSG 
DATAMSG 
WHATMSG 
VRSN 
REV 


3 out 
11 DSPALRTICON 


6 
-50 


Counts: 
No. Labels with Length 3: 


190 

212 

270 

448 

520 

711 

857 

904 

935 
1034 
1115 
1163 
1177 
1204 
1231 
1246 
1265 
1346 
1371 
1424 
1473 
1532 
1624 
1685 
1702 
1729 
1733 
1762 
1792 
1821 
1854 
1883 
1919 
1931 
1937 
1944 
1953 
1965 
1971 
1982 
1999 
2020 
2033 
2041 
2053 
2078 
2109 
2115 
2123 
2137 
2154 
2162 


exclusive 
MAKEPCALRT 
MAKEDBOX 
PAINT _V 
MAKEBUTN 
MAKEMENU 
GETLENGTH 
loop0O 
DSPNUMICON 
DSPBAD 
DSPQICON 
DSPMBRD 
DODSPLY 
CHKIOBRD 
DSPICON 
BLACK 
XLOOP 
DSPGERMN 
DSPIT 
CONVRTD5 
DSPDONE 
DSPVAL 
DSPVXIT 
QUESTCH 
AsciiTable 
ONE 
IObrd 
Xcard 
upper 
keybdout 
checkmrk 
lisa 
CROMMSG 
RAMMSG 
DSKMSG 
ERRMSG 
BOOTMSG 
TIMMSG 
PMMSG 
CONTMSG 
CHKMSG 
STRTMSG 
DISPMSG 
LPMSG 
QUITMSG 
TSTMENU 
CNTMSG 
TSTMSG 
CNTMSG 
VRSN 
HDGMSG 
LAST 


ene 
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<672> 
<673> 
<674> 
<675> 
<676> 
<677> 
<678> 
<679> 
<680> 
<681> 
<682> 
<683> 
<684> 
<685> 
<686> 
<687> 
<688> 
<689> 
<690> 
<691> 
<692> 
<693> 
<694> 
<695> 
<696> 
<697> 
<698> 
<699> 
<700> 
<701> 
<702> 
<703> 
<704> 
<705> 
<706> 
<707> 
<708> 
<709> 
<710> 
<711> 
<712> 
<713> 
<714> 
<715> 
<716> 
<717> 
<718> 


No. 
No. 
No. 
No. 
No. 
No. 
No. 
No. 


Labels 
Labels 
Labels 
Labels 
Labels 
Labels 
Labels 
Labels 


with 
with 
with 
with 
with 
with 
with 
with 


Length 
Length 
Length 
Length 
Length 
Length 
Length 
Length 


10: 
11: 


woOMOdtHA Us 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKKRKEKEKKKKKEKKKKKKEKKKKKEKRKEKKKKEKRKKKRKKKRKKKKKKKK 


* END OF FILE: RM248.G.TEXT 
KKK KKK KKK KEK IKI KKK KERIKERI KKK KEKE KK RRR KEK RAIA KKK ERE KEKE ERR EK 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKEKKKEKKKEKKKKEKRKEKKEKKEKRKKKKKKEKKKKKKKKKKKKKK 


* SUMMARY FILE LABEL INFO: 


KKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KER KKKKKEKRKEKKRKKEKRKKKKKKRKKKKKKEKKKKKKKK 


File Name List: 


[ 1] Text File? Yes Size: 85424 bytes 
[ 2] Text File? Yes Size: 68486 bytes 
[ 3] Text File? Yes Size: 74719 bytes 
[ 4] Text File? Yes Size: 83283 bytes 
[ 5] Text File? Yes Size: 90911 bytes 
[ 6] Text File? Yes Size: 71125 bytes 
473948 
All File Label Statistics: 
File Lines = 12523 
Label Count = 1504 
Local Label Count = 401 
Min Label Length = 2 RO 
Max Label Length = 13 MouseMovement 
Avg Label Length = 6 
Std Dev Label Length = 1.49 
Label Length Frequency Counts: 
No. Labels with Length 2: 13 
No. Labels with Length 3: 35 
No. Labels with Length 4: 140 
No. Labels with Length 5: 222 
No. Labels with Length 6: 389 
No. Labels with Length 7: 462 
No. Labels with Length 8: 181 
No. Labels with Length 9: 32 
No. Labels with Length 10: 20 
No. Labels with Length 11: 4 
No. Labels with Length 12: 4 
No. Labels with Length 13: 2 


"RM248. 
"RM248. 
"RM248. 
"RM248. 
"RM248. 
"RM248. 


E. TEXT" 
K. TEXT" 
S.TEXT" 
B. TEXT" 
M. TEXT" 
G. TEXT" 


TL Q> KEK KKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKEKKKK 


<720> * END OF SUMMARY FILE LABEL INFO 
LT QL > KERR KKK KEKE KKK KKK KEKE KKK KK ERE RIKKI KEKE KEIR KIRKE KEKE EKER ERIKA KERR REE 


<722> 


<723> That's all Folks ! 


I wrote the following MPW tools that analyzed the Boot ROM source code: 


DTCGetAsmComments 
DTCAsmOpcodelInfo 
DTCAsmLabeliInfo 


The source code for these tools follows: 


MPW Tool Listing: 


DTCGetAsmComments 


eee 
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1> 

2> 

3> 

4> 

5> 

6> 

71> 

8> 

9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
471> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 


{ 


author 
date 


language 
type : 
environment: 


input 


output 


example 


} 


ene 


get assembler comments 


purpose: this program is an apple mpw shell tool that fetchs 
all comment lines from an assembler listing 


: david t craig, 736 edgewater, wichita, kansas 67230 


june 1993 


: apple mpw pascal 3.2 


apple mpw shell tool 
apple mpw shell 


: DTCGetAsmComments comment-start-string asm-text-file 


: list of all lines whose first character is in the 


comment-start-string parameter, output is to 
the mpw shell's standard output 


each outputted line begins with the source file line 
number of the comment line 


at the end of the output exists information on the 
total number of lines in the file, the total number of 
comment lines in the file, and the ratio of these 

two values which may be of some interest to those with 
an interest in software metrics (such as the good folks 
who write papers for the IEEE Computer magazine) 


: DTCGetAsmComments ";*" FooBar.a 


this example searches for all lines in file FooBar.a which 
begin with either a ";" or "*" character and write those 
such lines to standard output 


program get_asm_comments; 


USES 
MemTypes , { Macintosh common types } 
OSIntf, { Macintosh Operating System interface } 
Toolintf, { Macintosh ToolBox interface } 
Packages, { Macintosh Package interface } 
PasLibiIntf, { Pascal runtime libary interface } 
IntEnv, { MPW integrated environment interface } 
CursorCtl; { MPW shell cursor unit } 

{$xr+} 

type 
t_string = string[255]; 

var 
arg_tool_name : t string; 
arg_comment string : t string; 
arg_asm file name : t string; 
asm_file : text; 
line_count : longint; 
line_rem_count : longint; { remark/comment count } 
line_data : t string; 
line _rem_count_ratio : longint; { remark / count } 
line_char_count : longint; 
line _char_rem_ count : longint; 
error : integer; 
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66> 
67> 
68> 
69> 
70> 
71> 
72> 
73> 
74> 
75> 
76> 
71> 
78> 
79> 
80> 
81> 
82> 
83> 
84> 
85> 
86> 
87> 
88> 
89> 
90> 
91> 
92> 
93> 
94> 
95> 
96> 


NAKRKRAKANKAKRAKKRKAKAKRAKAKAKRAKAKAKAKAKAKAAA 


<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 
<119> 
<120> 
<121> 
<122> 
<123> 
<124> 
<125> 
<126> 
<127> 
<128> 
<129> 
<130> 


function char _in string (c : char; s 
var 

in_string : boolean; 

i : integer; 


begin 
in_string := false; 


for i := 1 to length(s) do 
if s[i] = c then 
in_string := true; 


char_in_ string := in_string; 
end; 


function rem chars in line (s : 


var 
rem_char count : integer; 
i : integer; 
done : boolean; 


begin 
rem_char count := 0; 


i length (s) ; 
done := false; 


repeat 
if i <= 0 then 
done := true 
else 
begin 


if s[i] = arg_comment_string[1] then 


begin 
done 
rem_char count : 
end; 
end; 
i:=i-d1; 
until done; 


true; 


rem_chars in line := rem_char count; 


end; 


begin 


t_string) 


t_string) 


eee 


: boolean; 


: integer; 


length(s) - i+ 1; 


InitCursorCtl (NIL); { mpw beach ball cursor } 


writeln('Assembly Source Code Comment Fetcher Utility') ; 


writeln('Written by David T. Craig 


writeln; 


[',compdate,' ',comptime,']') ; 
writeln('736 Edgewater, Wichita, Kansas 67230 


(316) 733-0914') ; 


writeln('This utility reads all comment lines in an assembly language') ; 
writeln('source file and writes those comment lines to standard output.'); 


writeln; 


writeln('At the end of the output listing exists some source file metrics.'); 
writeln('These metrics cover the number of source and comment lines, and the’) ; 
writeln('number of line and comment characters. Note that the coment character') ; 
writeln('count also takes into account comments existing at the end of a regular'); 
writeln('source line (eg: " OPCODE OPERAND ; line end comment") ') ; 


writeln; 


arg_tool_name := argv*[0]%; 
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<131> 
<132> 
<133> 
<134> 
<135> 
<136> 
<137> 
<138> 
<139> 
<140> 
<141> 
<142> 
<143> 
<144> 
<145> 
<146> 
<147> 
<148> 
<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 
<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 


if argc <> 3 then 
begin 


writeln ('### ERROR : Wrong number of arguments for this tool'); 
writeln ('### SYNTAX: ',arg tool_name,' comment-start-string asm-text-file') ; 


writeln ('### comment-start-string 
writeln ('### asm-text-file 
end 
else 
begin 
arg comment string := argv*[1]%; 
arg_asm file name := argv*[2]%; 
writeln('Assembly Source File Name: ',arg asm file name) ; 
writeln; 
reset (asm file,arg asm file name); error := ioresult; 
if error <> 0 then 
writeln('### ERROR ',error:0, 
' opening file "',arg asm file name,'"') 
else 
begin 
line_count = 0; 
line_rem_ count = 0; 
line char count = 0; 
line_char_rem_ count := 0; 


writeln('LINE # ASSEMBLY SOURCE FILE LINE') ; 


writeln ('====== 


while not(eof(asm_file)) and (error 


begin 
line count := line count + 1; 
if (line count mod 16) = 0 then 
SpinCursor (1) ; 


readin (asm _file,line data); erro 


if error <> 0 then 
writeln ('### ERROR ',error:0, 


= 0) do 


xr := ioresult; 


' reading file "',arg asm file name,'"') 


else 
begin 
if length(line data) > 0 then 
begin 
line_char_ count := line char count + length(line data) ; 


if char_in string(line data[1],arg_comment_string) then 


begin 
line_rem_count 
line_char_rem_count 


writeln (line count:6 
error := ioresult; 


if error <> 0 then 


line _rem_count + 1; 


:= line _char_rem_count + 
length (line data) ; 


,': ',line data) ; 


writeln('### ERROR ',error:0, 


' writing 
end 
else 
begin 


output file'); 


{ count comment chars at end of line too } 


eee 


: comment line start (eg ";*:)'); 
file name (eg "FooBar.a")'); 
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<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 
<214> 
<215> 
<216> 
<217> 
<218> 
<219> 
<220> 
<221> 
<222> 
<223> 
<224> 
<225> 
<226> 
<227> 
<228> 
<229> 
<230> 
<231> 
<232> 
<233> 
<234> 
<235> 
<236> 
<237> 
<238> 


ANAKAKRKANKAKRAKAKAKRAXKXAAA 


line _char_rem_count 


end; 
end; 
end; 
end; 


close (asm_file) ; 


if error = 0 then 
begin 


if line count > 0 then 


line_rem_ count ratio : 


else 


line_rem_count_ratio : 


writeln; 


eee 


:= line _char_rem_count + 
rem_chars in line(line data) ; 


(line_rem_ count * 100) div line count 


0; 


writeln('File Line and Comment Metrics:') ; 


writeln; 

writeln(' 
writeln(' 
writeln(' 


Total Lines 


Total Comment Lines 
Comment / Line Count % 


', line_count: 8) ; 
',line_rem_count: 8) ; 
',line_rem_ count ratio:8,' %'); 


if line char count > 0 then 


line_rem_ count ratio : 


else 
line_rem_count_ratio := 
writeln; 
writeln(' Total Characters 
writeln(' Total Comment Characters 
writeln(' Comment / Line Character % 
end; 
end; 
end; 
writeln; 


writeln('That''s all Folks !'); 
end. 


(line_char_rem count * 100) div 
line_char_count 


0; 
',line_char_count: 8) ; 


',line_char_rem_ count: 8) ; 
',line_rem_ count ratio:8,' %'); 


Version 1.0 


: this program is an apple mpw shell tool that outputs 


statistical information about the opcodes existing in 


consists of a list of all opcode names, their 


frequencies, and a histogram of these frequencies 


| 
| 
| 
| 
| 
| 
| 
| 
| assembly language source code text files, this info 
| 
| 
| 
| 
| 
| 
| 
| 


{ finis } 
MPW Tool Listing: DTCAsmOpcodeInfo 
purpose 
author : david t craig 
address : 736 edgewater, wichita, kansas 67230 
date july 1993 
language : apple mpw pascal 3.2 
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19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
47l> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 
66> 
67> 
68> 
69> 
70> 
71> 
72> 
73> 
74> 
75> 
76> 
71> 
78> 
79> 
80> 
81> 
82> 
83> 


ene 


type : apple mpw shell tool 

environment: apple mpw shell 

input : DTCAsmOpcodeInfo comment-char asm-text-file-list 
where comment-char is a list of characters 


denoting a comment line 


asm-text-file-list is a list of assembly language 
source code file names 


output : Progress info goes to the screen and opcode info goes to 
standard output, the opcode info consists of a list of the 
opcodes and for each opcode appears its name, frequency, and 
a frequency histogram (3 lists are produced with lst being 
an unsorted list, 2nd sorted by name, 3rd sorted by frequency) 

example : DICAsmOpcodeInfo ";#" FooBar.a Frodor.a 

sample output: 


the following command line was used to produce this section's 
sample output listing; 


DTCAsmOpcodeInfo ";" FooBar.a Frodor.a 
the progress info looks like the following; 
Assembly Source File Opcode Information Gatherer Version: 1.0 
Written by David T. Craig [7/11/93 2:34:05 PM] 
736 Edgewater, Wichita, Kansas 67230 
Copyright (c) 1993 by David T. Craig 
Current Date and Time: Sunday, July 11, 1993 2:34:41 PM 


Scanning file "FooBar.a" for opcodes ... 
Scanning file "Frodor.a" for opcodes ... 


That's all, folks ! 
the opcode info looks like the following; 


Assembly Source File Opcode Information Gatherer 
Version: 1.0 [7/11/93] 


File # 1: FooBar.a 
File # 2: Frodor.a 


Opcode List unsorted: 


Minimum opcode frequency = 306 

Maximum opcode frequency = 804 

# Opcode Frequency Histogram 

1 . PAGE 115 *#kkkKKKK 

2 . LIST 10 ** 

3 BSR ATQ REKKKKKKKKKKKKKKKEKKEKKKKKEKKKKKEKK 
4 CLR.L Q5 xekkkke 

5 BIST B86 KKKKKKK 


Opcode List sorted by NAME: 


Minimum opcode frequency = 306 
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<144> 
<145> 
<146> 
<147> 
<148> 


eee 


Maximum opcode frequency = 804 


# Opcode Frequency Histogram 

1 ABSOLUTE 1* 

2 . ALIGN 1 * 

3 - ASCII 16 *kkKKKK 

4 . BYTE 306 RHEKKKKKKKKKKEKKKKEKEKER 
5 . ELSE 718 kkk 


Opcode List sorted by FREQUENCY: 


Minimum opcode frequency = 306 

Maximum opcode frequency = 804 

# Opcode Frequency Histogram 

1 .EQU BOD KEKKHKKHKKKKKEKKKKKEKEK KKK KKK KEK KKK KEKKEKKKKK 
2 BSR ATQ REKKKEKKKKKEKKEKKKKKEKKEKKKKKEKKKKKKK 

3 MOVE.L BBQ KAKA KAKA K EKER ERE KR EK EK 

4 MOVEQ B76 REKKKKKKKEKKKEKKEKKEKKEKEKKEKKEK 

5 . BYTE 306 RHEKKKKKKKKKKEKKEKKEKEKER 


FINIS 
usage notes: 


(0) a spinning beach ball cursor appears during file processing, 
the spin direction alternates for every other file 


(1) opcodes with up to 15 characters are handled (longer opcodes 
are truncated), opcodes are read until either a space character 
or control character is found, or until the end of the line 
is reached 


theory of operation: 
for each argument file all the lines are scanned with each line's 
opcode name extracted (if existing) and name either added to 
opcode list or if name already exists in the list then name's 
frequency is incremented 


programming notes: 


(0) opcode names are delimited by "white space" which consists of 
all characters less than or equal to ascii space character (#32) 


(1) all opcode names are stored in the opcode list with uppercase 
characters 


(2) opcode list contains opcode name and frequency, list is a simple 
array without any specific ordering 


(3) opcode list is finite in length 


program asm opcode info; 


USES 


MemTypes , { Macintosh common types } 
OSIntf, { Macintosh Operating System interface } 
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<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 
<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 
<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 


Toolintf, { Macintosh ToolBox interface } 
Packages, { Macintosh Package interface } 
PasLibIntf, { Pascal runtime libary interface } 
IntEnv, { MPW integrated environment interface } 
ErrMgr, { MPW error manager interface } 
CursorCtl; { MPW shell cursor unit } 
{$xr+} 
const 
k_pgm_title = 'Assembly Source File Opcode Information Gatherer' ; 
k_pgm_version = '1.0'; 
k_pgm date = compdate; { mpw pascal specific } 
k_pgm_time = comptime; { mpw pascal specific } 
k_pgm_author = 'David T. Craig'; 
k_pgm_address = '736 Edgewater, Wichita, Kansas 67230'; 
k_pgm_copyright = 'Copyright (c) 1993 by David T. Craig'; 
k_max_opcodes = 1500; 
k_max_opcode_name len = 15; 
k_err_ alpha = 32000; 
k_err list full = 32000; 
k_err_ omega = 32000; 
type 
t_opcode_name = string[k_max_ opcode name len]; 
t_opcode freq = integer; 
t_opcode info = record 
oi_name : t_opcode_name; 
oi_freq : t_opcode freq; 
end; 
t_opcode list = array [1..k_max_opcodes] of t_opcode info; 
t_opcode list ptr = “t_opcode list; 
t_sort_order = (sort _by name , sort by freq) ; 
t_string = str255; 
var 
g_mac date time : t string; { current machine date/time } 
g_arg tool_name : t string; 
g_arg_ comment chars : t string; 
g_arg index : integer; 
g_arg file name : t string; 
g_process error : integer; 
g_ process error total : integer; 
g_good list : boolean; 
g_opcode list : t_opcode list ptr; 
g_opcode list count : integer; 
{$S SgAsmOpcodeInfo} 
Seog cae ae see re epee ee ae epee eee geee eae } 
procedure fetch _mac_ error message ( the_error : integer; 


var 
msg : string[99]; 


begin 


var the_error msg : t_string) ; 


if (the_error >= k_err_alpha) and (the_error <= k_err_omega) then 


begin 


eee 
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ene 


<214> case the error of 
<215> k_err list full : msg := 'Opcode list is full.'; 
<216> otherwise msg := 'Unknown tool error (contact programmer) .'; 
<217> end; { case } 
<218> 
<219> the error msg := msg; 
<220> end 
<221> else 
<222> begin 
<223> GetSysErrText (the_error,@the_error_ msg) ; 
<224> end; 
<225> end; 
<226> 
K227> { ssassa aso a ssa a seas s ase Sass see sesso anes eae ease oe ease 
<228> 
<229> procedure show_error (the_error : integer; the_msg : t_string) ; 
<230> 
<231> var 
<232> err msg : t_string; 
<233> 
<234> begin 
<235> fetch_mac_error_message(the error,err_ msg) ; 
<236> 
<237> writeln (diagnostic, '### ERROR ',the_error:0,': ',the msg) ; 
<238> writeln (diagnostic, ' ',err_msg) ; 
<239> end; 
<240> 
K<241> [ --- nnn errr rrr nnn nnn 
<242> 
<243> procedure get_current date time (var s : t_string) ; 
<244> 
<245> var 
<246> mac_date time info : longint; 
<247> date time string : str255; 
<248> 
<249> begin 
<250> getdatetime (mac_date time info) ; 
<251> iudatestring (mac_date_time_info,longdate,date time string) ; 
<252> 
<253> s := date time string; 
<254> 
<255> iutimestring (mac_date time _info,true,date_ time string) ; 
<256> 
<257> s := concat(s,' ',date time string) ; 
<258> end; 
<259> 
<260> [ ---n rrr rrr rrr rrr nnn nan 
<261> 
<262> function is whitespace (c : char) : boolean; 
<263> 
<264> const 
<265> k_max whitespace = chr(32); { ascii SPACE } 
<266> 
<267> begin 
<268> is whitespace := (c <= k_max whitespace) ; 
<269> end; 
<270> 
K271> [ corner rrr nnn aan 
<272> 
<273> procedure trim_leading whitespace (var s : t_string; var cl : char); 
<274> 
<275> var 
<276> done : boolean; 
<277> 
<278> begin 
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<279> 
<280> 
<281> 
<282> 
<283> 
<284> 
<285> 
<286> 
<287> 
<288> 
<289> 
<290> 
<291> 
<292> 
<293> 
<294> 
<295> 
<296> 
<297> 
<298> 
<299> 
<300> 
<301> 
<302> 
<303> 
<304> 
<305> 
<306> 
<307> 
<308> 
<309> 
<310> 
<311> 
<312> 
<313> 
<314> 
<315> 
<316> 
<317> 
<318> 
<319> 
<320> 
<321> 
<322> 
<323> 
<324> 
<325> 
<326> 
<327> 
<328> 
<329> 
<330> 
<331> 
<332> 
<333> 
<334> 
<335> 
<336> 
<337> 
<338> 
<339> 
<340> 
<341> 
<342> 
<343> 


if length(s) > 0 then { setup first string character for caller } 


cl := s[1] 
else 

cl := chr(0); 
done := false; 
repeat 

begin 


if length(s) = 0 then 
done := true 
else 
begin 
if is whitespace(s[1]) then 
delete(s,1,1) 
else 
done := true; 
end; 
end; 
until done; 
end; 


var 
i : integer; 
done : boolean; 


begin 
next_word := ''; 


if length(s) > 0 then 
begin 
i 
done : 


=)0; 
= false; 
repeat 
begin 
i:=i+1; 


if i > length(s) then 
begin 
i:=i-1; 
if i> O then 
next_word := copy(s,1,i) ; 


done := true; 
end 
else 
begin 
if is whitespace(s[i]) then 
begin 
i:=i-1; 
if i> O then 
next_word := copy(s,1,i) ; 


done := true; 
end; 
end; 
end; 
until done; 
end; 
end; 


procedure fetch_next_word (s : t_string; var next _word : t_string) ; 


ene 
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ene 


<344> 

KSE5> [Seas ses sss Sa SSS SSeS See Sa esa Sse a sass Sa eS aaeoSse SS } 
<346> 

<347> procedure uppcase opcode name (var s : t_opcode_ name) ; 

<348> 

<349> var 

<350> i: integer; 

<351> 

<352> begin 

<353> i := length(s) ; 

<354> 

<355> while i > 0 do 

<356> begin 

<357> if s[i] in ['a'..'z'] then 

<358> s[i] := chr( ord(s[i]) - ord('a') + ord('A') ); 

<359> 

<360> bee ee 

<361> end; 

<362> end; 

<363> 

<364> {. SH-S5S4 Ha 58 esas Sees aes aaa sans eee a Saat a a Seas Seas esceaaseaaaseese } 
<365> 

<366> procedure initialize opcode list (var the_good_ init : boolean) ; 

<367> 

<368> var 

<369> list_index : integer; 

<370> 

<371> begin 

<372> the_good_ init := true; 

<373> 

<374> g_opcode list : 
<375> 

<376> if g opcode list 
<377> the_good_init : 
<378> else 

<379> begin 

<380> g_opcode list count := 0; 

<381> 

<382> for list_index := 1 to k_max opcodes do 
<383> begin 

<384> g_opcode list*[list_ index] .oi_name : 
<385> g_opcode list*[list_index] .oi_freq : 
<386> end; 

<387> end; 

<388> end; 

<389> 

ST 8 aa lee i a a } 
<391> 

<392> procedure terminate_opcode list (var the_good_ term : boolean) ; 

<393> 

<394> begin 

<395> the_good_term := true; 

<396> 

<397> if g opcode list 
<398> the_good_term 
<399> else 

<400> begin 

<401> disposptr (ptr (g_opcode list) ) ; 
<402> 

<403> g_opcode list 

<404> g_opcode list count : 
<405> end; 

<406> end; 

<407> 

<408> {0S - oss sss Saas case aS a se se ae eae essa arse se nse ane o Sane sseaaaaseessaaHe- } 


t_opcode list ptr(newptr (sizeof (t_ opcode list) )); 


nil then 
false 


nil; 
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ene 


<409> 

<410> procedure get_asm_ line opcode ( the_asm_ line : t_string; 

<411> var the_ opcode : t_opcode_name) ; 
<412> 

<413> var 

<414> first_char : char; 

<415> comment set : set of char; 

<416> i : integer; 

<417> next_word : t string; 

<418> 

<419> begin 

<420> the opcode := ''; 

<421> 

<422> if length(the_asm line) > 0 then 

<423> begin 

<424> trim_leading whitespace (the_asm_ line, first char) ; 

<425> 

<426> if length(the_ asm line) > 0 then 

<427> begin 

<428> comment set := []; 

<429> for i := 1 to length(g_arg comment chars) do 

<430> comment_set := comment _set + [g_arg comment _chars[i]]; 
<431> 

<432> if not(the_asm_line[1] in comment_set) then 

<433> begin 

<434> if is whitespace (first _char) then 

<435> begin 

<436> { " opcode ..." } 

<437> 

<438> fetch_next_word(the_asm_line,next word) ; 

<439> 

<440> if length(next word) >= (sizeof(the_opcode) - 1) then 
<441> next_word := copy (next _word,1,sizeof(the_opcode) -1) ; 
<442> 

<443> the_opcode := next word; 

<444> end 

<445> else 

<446> begin 

<447> { "label [opcode] ..." } 

<448> 

<449> fetch_next_word(the_asm_line,next word) ; 

<450> delete (the_asm_line,1,length (next word) ) ; 

<451> trim_leading whitespace (the_asm_line,first_ char) ; 
<452> 

<453> { "opcode" or "" } 

<454> 

<455> if length(the_asm line) > 0 then 

<456> begin 

<457> if not(the_asm_line[1] in comment_set) then 
<458> begin 

<459> fetch_next_word(the_asm_line,next word) ; 
<460> 

<461> if length(next word) >= (sizeof(the_ opcode) - 1) then 
<462> next_word := copy(next word,1,sizeof(the_opcode) -1) ; 
<463> 

<464> the opcode := next word; 

<465> end; 

<466> end; 

<467> end; 

<468> end; 

<469> end; 

<470> end; 

<471> end; 

<472> 

KA13B> [ momma } 
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ene 


<A74> 

<475> procedure find_opcode in list ( the_name : t_opcode_name; 
<476> var the list index : integer) ; 

<A7T71> 

<478> var 

<479> opcode found : boolean; 

<480> 

<481> begin 

<482> the _list index := 0; 

<483> 

<484> if g opcode list count > 0 then 

<485> begin 

<486> opcode found := false; 

<487> 

<488> repeat 

<489> begin 

<490> the list index := the_list_index + 1; 

<491> 

<492> if the_name = g opcode list*[the list index] .oi_name then 
<493> opcode found := true; 

<494> end; 

<495> until (the list index >= g opcode list count) or opcode found; 
<496> 

<497> if not(opcode found) then 

<498> the_list index := 0; 

<499> end; 

<500> end; 

<501> 

<502> [ qn nnn rrr rrr rrr rennet rns enn rns naan } 
<503> 

<504> procedure add_opcode to list ( the name : t_opcode name; 

<505> var the error : integer) ; 

<506> 

<507> var 

<508> list_index : integer; 

<509> 

<510> begin 

<511> the_error := noerr; 

<512> 

<513> uppcase_opcode_name (the_name) ; 

<514> 

<515> find _opcode_in list (the_name,list index) ; 

<516> 

<517> if list_index = 0 then 

<518> begin 

<519> { FEEEEEFEEEEFEFEEEEEFEFEFEF+EE+E+++4+4+4+4+4+4+4++ name not in list, so add } 
<520> 

<521> if g opcode list count >= k_max opcodes then 

<522> begin 

<523> the_error := k_err list full; { list full !!! } 

<524> end 

<525> else 

<526> begin 

<527> g_opcode list count := g opcode list count + 1; 

<528> 

<529> with g opcode list*[g opcode list count] do 

<530> begin 
<531> oi_name : 
<532> oi_freq : 
<533> end; 
<534> end; 
<535> end 

<536> else { list_index > 0 } 

<537> begin 

<538> { FEEFEEEFEFEFEFEF EF EF +E++F+++4+4+4+4+4+4+4+4+4+4+4+4+4++ name in list, so inc freq } 


the_name; 
1; 
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<539> 
<540> 
<541> 
<542> 
<543> 
<544> 
<545> 
<546> 
<547> 
<548> 
<549> 
<550> 
<551> 
<552> 
<553> 
<554> 
<555> 
<556> 
<557> 
<558> 
<559> 
<560> 
<561> 
<562> 
<563> 
<564> 
<565> 
<566> 
<567> 
<568> 
<569> 
<570> 
<571> 
<572> 
<573> 
<574> 
<575> 
<576> 
<577> 
<578> 
<579> 
<580> 
<581> 
<582> 
<583> 
<584> 
<585> 
<586> 
<587> 
<588> 
<589> 
<590> 
<591> 
<592> 
<593> 
<594> 
<595> 
<596> 
<597> 
<598> 
<599> 
<600> 
<601> 
<602> 
<603> 


with g opcode list*[list_index] do 
oi_freq := oi_ freq + 1; 
end; 


procedure sort opcode list (sort_order : t_sort_order) ; 


var 
list_sorted : boolean; 
list_index : integer; 


opcode _info_a : t_opcode info; 
opcode info b : t_opcode info; 
swap_em : boolean; 


begin 
{ simple bubble sort (use comb sort if bs is too slow) } 


if g opcode list count >= 2 then 
begin 
repeat 
begin 
list_sorted := true; 


for list_index := 1 to (g_ opcode list count - 1) do 


begin 
opcode info a : 
opcode info b : 


g_opcode list*[list_index 


swap_em := false; 


case sort order of 
sort _by name : 


1; 


g_opcode list*[list_index + 1]; 


if opcode_info_a.oi_name > opcode info b.oi_name then 


swap_em := true; 
sort by freq : 


if opcode _info a.oi_freq < opcode info b.oi_freq then 


swap _em := true; 
end; { case } 


if swap_em then 
begin 
list_sorted := false; 


g_opcode list*[list_index ] 
g_opcode list*[list_index + 1] 


spincursor (1) ; 
end; 
end; { for list_index } 
end; 
until list_sorted; 
end; 


procedure dump opcode list (the_title : t_string) ; 


const 
k h len 


k_h_symbol 
k_dividerl ; 


“ou u 
* 


opcode _info b; 
opcode _info a; 


eee 
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ene 


<604> k_divider2 = '------------- $n nnn nnn nnn nnn nnn nnn nnn nnn nnn nna May 
<605> 

<606> var 

<607> list_index : integer; 

<608> freq _ min : t_opcode freq; 

<609> freq_max : t_opcode freq; 

<610> freq : t_opcode_ freq; 

<611> h_value : integer; 

<612> 

<613> begin 

<614> writeln; 

<615> writeln (the title) ; 

<616> writeln; 

<617> 

<618> if g opcode list count > 0 then 

<619> begin 

<620> freq min := g opcode list*[1].oi_freq; 

<621> freq_max := g opcode list*[1].oi_freq; 

<622> 

<623> for list_index := 1 to g opcode list count do 
<624> begin 

<625> freq := g opcode list*[list_index] .0i_freq; 
<626> 

<627> if freq < freq_min then freq min := freq; 
<628> if freq > freq_max then freq _max := freq; 
<629> end; 

<630> end; 

<631> 

<632> writeln(' Minimum opcode frequency = ',freq _min:0) ; 
<633> writeln(' Maximum opcode frequency = ',freq _max:0) ; 
<634> writeln; 

<635> 

<636> writeln(' # Opcode Frequency Histogram’) ; 
<637> writeln (k_dividerl,k_divider2) ; 

<638> 

<639> if g opcode list count <= 0 then 

<640> writeln('(no opcodes exist) ') 

<641> else 

<642> begin 

<643> for list_index := 1 to g opcode list count do 
<644> begin 

<645> write (list _index:3,' '); 

<646> write (g_ opcode list*[list_index].oi_name:15,' '); 
<647> write (g_ opcode list*[list_index].oi_freq: 9,' '); 
<648> 

<649> if freq_max <> freq_min then 

<650> begin 

<651> with g opcode list*[list_index] do 
<652> h_value := k_h_len - (ord4(k_h_len-1) * ord4(freq max-oi_freq) div 
<653> ord4 (freq_max-freq min) ) ; 
<654> end 

<655> else { freq_max = freq min } 

<656> begin 

<657> h_value := k_h len; 

<658> end; 

<659> 

<660> while h_value > 0 do 

<661> begin 

<662> write (k_h_ symbol) ; 

<663> h_value := h_ value - 1; 

<664> end; 

<665> 

<666> writeln; 

<667> end; 

<668> end; 
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<669> 
<670> 
<671> 
<672> 
<673> 
<674> 
<675> 
<676> 
<677> 
<678> 
<679> 
<680> 
<681> 
<682> 
<683> 
<684> 
<685> 
<686> 
<687> 
<688> 
<689> 
<690> 
<691> 
<692> 
<693> 
<694> 
<695> 
<696> 
<697> 
<698> 
<699> 
<700> 
<701> 
<702> 
<703> 
<704> 
<705> 
<706> 
<707> 
<708> 
<709> 
<710> 
<711> 
<712> 
<713> 
<714> 
<715> 
<716> 
<717> 
<718> 
<719> 
<720> 
<721> 
<722> 
<723> 
<724> 
<725> 
<726> 
<727> 
<728> 
<729> 
<730> 
<731> 
<732> 
<733> 


eee 


writeln (k_dividerl,k_divider2) ; 


end; 
i i SS es te nT ees ee ee at a ta om le } 
procedure process asm file ( the_file name : t_string; 
the_ file number : integer; 
var the error : integer) ; 
var 
£ : text; 
1 : string[255]; 
c : longint; 


opcode name : t_ opcode name; 


begin 
the_error := noerr; 
writeln(' File # ',the file number:3,': ',the file name) ; 
reset (f£,the file name); the_error := ioresult; 


if the_error = noerr then 


begin 
while not(eof(f£)) and (the_error = noerr) do 
begin 
readin(f£,1); the_error := ioresult; 


if the_error = noerr then 
begin 

ec :=cHtil1; 

if c mod 16 = 0 then 
begin 

if odd(the_file number) then spincursor (+1) 
else spincursor (-1) ; 

end; 


if length(1) > 0 then 
begin 
get_asm_line opcode (1,opcode_name) ; 


if length (opcode_name) > 0 then 
begin 
add_opcode _to list(opcode_ name, the error) ; 
end; 
end; 
end; 
end; { while not(eof) } 


close (f) ; 
end; 

end; 

a a ca a a i a a a a ee ee } 
M A I UN } 

So SoS eS ee eee eee Se eee ae eee ae ee ee ee ae ee ee eee Se eee eee ee oe ee eee. } 

begin { ------------ MAIN : asm_opcode_info ------------ } 

PLSetVBuf (output,nil, iolbf,0); { mpw output buffer flushing control } 

InitCursorCtl (nil); { mpw beach ball cursor } 

InitErrMgr ('','',£alse) ; { mpw error message manager } 
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<734> 
<735> 
<736> 
<737> 
<738> 
<739> 
<740> 
<741> 
<742> 
<743> 
<744> 
<745> 
<746> 
<7T471> 
<748> 
<749> 
<750> 
<751> 
<752> 
<753> 
<754> 
<755> 
<756> 
<757> 
<758> 
<759> 
<760> 
<761> 
<762> 
<763> 
<764> 
<765> 
<766> 
<767> 
<768> 
<769> 
<770> 
<771> 
<772> 
<7713> 
<77T4> 
<7715> 
<776> 
<771> 
<778> 
<779> 
<780> 
<781> 
<782> 
<783> 
<784> 
<785> 
<786> 
<787> 
<788> 
<789> 
<790> 
<791> 
<792> 
<793> 
<794> 
<795> 
<796> 
<797> 
<798> 


Coes 


get_current date time(g_ mac date time) ; 


writeln (diagnostic) ; 

writeln (diagnostic,k pgm title,' Version: ',k_pgm version) ; 

writeln (diagnostic, 'Written by ',k pgm _author,' [',k_pgm date,' ',k pgm time,']'); 
writeln (diagnostic,k pgm address) ; 

writeln (diagnostic,k pgm copyright) ; 

writeln (diagnostic) ; 

writeln (diagnostic, 'Current Date and Time: ',g mac date time) ; 

writeln (diagnostic) ; 


g_arg_tool_ name := argv*[0]%; 


if argc < 3 then 


begin 
writeln (diagnostic, '### ERROR : Tool argument list is invalid’) ; 
writeln (diagnostic, '### SYNTAX: ',g arg tool_name,' comment-char ', 
' asm-text-file-list') ; 
end 


else 


begin 
g_arg_ comment chars := argv*[1]%*; 


if length(g_arg comment chars) = 0 then 
begin 
writeln (diagnostic, '### ERROR: Comment character string is empty') ; 
end 
else 
begin 
initialize opcode _list(g_good_list) ; 


if not(g_good_ list) then 
writeln (diagnostic, '### ERROR: Creating opcode list failed !') 
else 
begin 
writeln(k_pgm_ title) ; 
writeln('Version: ',k_pgm_version,' [',k pgm _date,']'); 


writeln; 
g_ process error total := 0; 
g_arg index =1; 


while g arg index < (argc - 1) do 
begin 
g_arg index 
g_arg file name : 


= g_arg index + 1; 

= argv“[g_arg index]%; 

writeln (diagnostic, 'Scanning file "',g arg file name,'" ', 
‘for opcodes ...'); 


process asm file(g arg file name,g arg index-1,g process error) ; 


if g process error <> noerr then 
begin 
show_error(g process error,'Scanning file failed !'); 
g_process error total:= g process error total + 1; 
end; 
end; { while g arg index } 


if g process error total = 0 then 
begin 
dump opcode list('Opcode List unsorted:') ; 


sort _opcode_ list(sort_by name) ; 
dump opcode list('Opcode List sorted by NAME:') ; 
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Coes 


<799> 

<800> sort opcode list(sort_by freq) ; 

<801> dump opcode _list('Opcode List sorted by FREQUENCY: ') ; 
<802> 

<803> writeln; 

<804> writeln('FINIS') ; 

<805> end; 

<806> 

<807> terminate_opcode_list(g_good_list) ; 

<808> 

<809> if not(g_good_ list) then 

<810> writeln (diagnostic, '### ERROR: Deallocating opcode list failed !'); 
<811> end; 

<812> end; 

<813> end; 

<814> 

<815> writeln (diagnostic) ; 

<816> writeln(diagnostic,'That''s all, folks !'); 

<817> 

<818> end. { ------------ MAIN : asm_opcode info ------------ } 

<819> 

<820> { finis } 

MPW Tool Listing: DTCAsmLabelInfo 

< > { +------------------------------------------------------------------------------ 
< 2> | 

< 3> | FETCH ASSEMBLY LANGUAGE SOURCE FILE LABEL STATISTICS 

< 4> Po penn nnn enn nnn nnn nnn nnn nnn ences 

< 5> | 

< 6> | Version 1.0 

< 7> | 

< 8&> | purpose : this program is an apple mpw shell tool that outputs 

< 9> | statisitcal information about the labels existing in 

< 10> | assembly language source code text files 

< 11> | 

< 12> | author : david t craig 

< 13> | address : 736 edgewater, wichita, kansas 67230 

< 14> | date : June 1993 

< 15> | 

< 16> | language : apple mpw pascal 3.2 

< 17> | type : apple mpw shell tool 

< 18> | environment: apple mpw shell 

< 19> | 

< 20> | input : DTCAsmLabelInfo local-label-char asm-text-file-list 

< 21> | 

< 22> | where local-label-char is a single character which 

< 23> | exists at the beginning of 

< 24> | local variable names 

< 25> | 

< 26> | asm-text-file-list is a list of assembly language 
< 27> | source code file names 

< 28> | 

< 29> | note: if local-label-char contains the word "DEBUG" then 
< 30> | special internal debugging info is outputted (phrase 
< 31> | case in-sensitive, so "DEBUG" is the same as "debug") 
< 32> | 

< 33> | output : for each file output consists of a set of lists as follows; 
< 34> | 

< 35> | - list of all regular labels found in the file 

< 36> | (note: local labels are not listed) 

< 37> | - list of file label statistics 

< 38> | 

< 39> | at the end of the output exists summary information about 
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NA KRKAKAKAKAKANKAKRKAKAKAKARAKRAKKAKAKRAKAKAKRAKAKARKAKAKAKAKAKRAKAKAKAKAAKAKRAKAKAXKAA 


ene 


all the processed files; 


- list of all processed files, whether they are standard 
Macintosh text files 

- statistics for all the labels in all the files 

- list of label length frequencies 


example : DTCAsmLabelInfo "@" FooBar.a Frodor.a 


this example states that the character that begins a local 
label name is "@" (eg: "@9") and that there are two files 
to process, FooBar.a and Frodor.a 


sample output: 


the following command line was used to produce this section's 
sample output listing; 


DTCAsmLabelInfo "@" FooBar.a Frodor.a 


at the beginning of the output appears some information about the 
program, its author, and the current date and time; 


Assembly Source File Label Information Gatherer Version: 1.0 
Written by David T. Craig [6/13/93 4:40:18 PM] 

736 Edgewater, Wichita, Kansas 67230 

Copyright (c) 1993 by David T. Craig 


Current Date and Time: Sunday, June 13, 1993 4:40:38 PM 
for each file the following information appears; 
KHEKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


* LABEL INFO FOR FILE : FooBar.a 
KKK KIKI KKK KEK IKKE KKK KIKI KARR 


15 VIDTST 23 VIDCHK 47 VIDERR 
54 VIDXIT 95 RDSERN 122 GetBits1: 
152 GetBits2: 179 GetBytes: 213 CheckSum: 


250 Exit: 263 FindSync: 288 GetNibbles: 


KKRKEKKKEKKKKKKEKKKEKKEKKEKEKEKKKKEKEKKEKRKKREKKEKRKKRKEKKEKRKKREKKEKKKEKKKKKKKKKEK 


* FILE LABEL STATISTICS 
KKK KIKI KKK KKK KKK KEKE KKK EK RR KIRKE RIKER EKER REE REE 


File Lines = 2032 

Label Count = 123 

Local Label Count = 100 

Min Label Length = 3 Tag 

Max Label Length = 11 GetNibbles: 
Avg Label Length = 6 

Std Dev Label Length = 1.18 


Label Length Frequency Counts: 
No. Labels with Length 3: 
No. Labels with Length 4 
No. Labels with Length 5 
No. Labels with Length 6 
No. Labels with Length 7: 
No. Labels with Length 8: 12 
No. Labels with Length 9 
No. Labels with Length 10 
No. Labels with Length 11 
KHEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKK KKK KKK 


* END OF FILE: FooBar.a 
KKKKKKKEKKKKEKKKKKKKKKKEKKEKKKKEKKKKKEKEKKEKKKKKEKKEKKKKKKKKKKKKKKKKKEK 
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<105> 
<106> 
<107> 
<108> 
<109> 
<110> 
<111> 
<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 
<119> 
<120> 
<121> 
<122> 
<123> 
<124> 
<125> 
<126> 
<127> 
<128> 
<129> 
<130> 
<131> 
<132> 
<133> 
<134> 
<135> 
<136> 
<137> 
<138> 
<139> 
<140> 
<141> 
<142> 
<143> 
<144> 
<145> 
<146> 
<147> 
<148> 
<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 


at 


ene 


the end of the output appears summary information; 


KKKKKKEKKKKEKKEKKKEKKKKKKEKKKKKKEKKEKRKKKRKEKKKKKEKKKRKKEKKEKKKEKKKKKKKKKEK 


* SUMMARY FILE LABEL INFO: 
KKK KIKI KKK KERRI KEIRA RR KKK KEKE KKK KKK AERA EKER REE 


File Name List: 


[ 1] Text File? Yes Size: 83283 bytes - "FooBar.a" 
[ 2] Text File? Yes Size: 85424 bytes - "Frodor.a" 
168707 
All File Label Statistics: 
File Lines = 12523 
Label Count = 1504 
Local Label Count = 401 
Min Label Length = 2 RO 
Max Label Length = 13 MouseMovement 
Avg Label Length = 6 
Std Dev Label Length = 1.49 


Label Length Frequency Counts: 


No. Labels with Length 2: 13 
No. Labels with Length 3: 35 
No. Labels with Length 4: 140 
No. Labels with Length 5: 222 
No. Labels with Length 6: 389 
No. Labels with Length 7: 462 
No. Labels with Length 8: 181 
No. Labels with Length 9: 32 
No. Labels with Length 10: 20 
No. Labels with Length 11: 4 
No. Labels with Length 12: 4 
No. Labels with Length 13: 2 


KKKKKKEKKKKKKEKKKKEKKKKKKEKEKEKKKKEKKKRKKKEKKKKKEEKKKRKKEKKEKKKKKKKKKKKKK 


* END OF SUMMARY FILE LABEL INFO 
KKK KIKI KKK KKK IKKE KARRI KKK KERR KKK KARRI KEKE EREREREEK 


usage notes: 


(0) 


(1) 


(2) 


(3) 


(4) 


(5) 


a spinning beach ball cursor appears during file processing, 
the spin direction alternates for every other file 


labels with up to 63 characters are handled (longer labels 

are truncated), labels are read until either a space character 
or control character is found, or until the end of the line 

is reached 


only the first 20 characters of a label appear in the label 
list (most labels should not be longer than this limit) 


local labels are labels which are used within an assembly 
source file for localized branches and exist only within a 
very narrow scope (for example, the mpw 68000 assembler 
denotes local labels with "@" followed by a number [@9]), 
this program supports any single character to desinate that 
a label is a local label (actually, a multi-character string 
may be entered for the local label character, but only the 
first character will be used by this program) 


only macintosh text files are processed (ie files with macintosh 
file type of "TEXT"), if a non-text file is entered the program 
skip the file and not process it 


only files with data in them are processed (files with no bytes 
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<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 
<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 
<214> 
<215> 
<216> 
<217> 
<218> 
<219> 
<220> 
<221> 
<222> 
<223> 
<224> 
<225> 
<226> 
<227> 
<228> 
<229> 
<230> 
<231> 
<232> 
<233> 
<234> 


ene 


are not processed since there is nothing to process) 


(6) input file lines are read with up to 255 characters, longer 
lines will most likely cause a read error from the pascal 
file i/o macintosh library 


theory of operation: 


each file is processed which results in 
a) the output of all found label names (excluding local labels), 
b) various statistics are gathered, outputted, and returned to 
the main program file-fetch loop 


file label statistics are accumulated by the main program loop, 
processed, and outputted for a single set of statistical data 
for all the inputted file names 


special debugging data is also outputted if the local label argument 
string contains a special debug-me flag, all debug data is 
prefaced by a special phrase ("%%%") to ease human identification 
of debugging data 

programming notes: 
(0) standard deviation is calculated as follows: 


+- -+ 
= | sum(x*2) - sum(x)*2 | * (1/2) 
| 
| 


reference: Personal Programming: TI-58C/59 Calculator Owner's Manual 
Texas Instruments, 1979, p. V-34 


program get_asm_ label info; 


USES 
MemTypes , { Macintosh common types } 
OSIntf, { Macintosh Operating System interface } 
Toolintf, { Macintosh ToolBox interface } 
Packages, { Macintosh Package interface } 
PasLibIntf, { Pascal runtime libary interface } 
IntEnv, { MPW integrated environment interface } 
ErrMgr, { MPW error manager interface } 
CursorCtl; { MPW shell cursor unit } 
{$xr+} 
const 
k_pgm_ title = 'Assembly Source File Label Information Gatherer’ ; 
k_pgm_version = '1.0'; 
k_pgm_date = compdate; { mpw pascal specific } 
k_pgm_time = comptime; { mpw pascal specific } 
k_pgm_author = 'David T. Craig'; 
k_pgm_address = '736 Edgewater, Wichita, Kansas 67230'; 
k_pgm_copyright = 'Copyright (c) 1993 by David T. Craig'; 
k_max_label_ length = 63; { max no. of characters supported per label name } 
k divider = VK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKEKKKKE | 
k_debug phrase = 'DEBUG'; { for use by local-label-char argument } 
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<235> 
<236> 
<237> 
<238> 
<239> 
<240> 
<241> 
<242> 
<243> 
<244> 
<245> 
<246> 
<247> 
<248> 
<249> 
<250> 
<251> 
<252> 
<253> 
<254> 
<255> 
<256> 
<257> 
<258> 
<259> 
<260> 
<261> 
<262> 
<263> 
<264> 
<265> 
<266> 
<267> 
<268> 
<269> 
<270> 
<271> 
<272> 
<273> 
<274> 
<275> 
<276> 
<277> 
<278> 
<279> 
<280> 
<281> 
<282> 
<283> 
<284> 
<285> 
<286> 
<287> 
<288> 
<289> 
<290> 
<291> 
<292> 
<293> 
<294> 
<295> 
<296> 
<297> 
<298> 
<299> 


eee 


{ speical tool-specific error codes } 


k_err_ alpha 
k_err not _text file 
k_err_ omega 


type 


t_string 
t_counter 


{ counts of label 


= 32700; 

= 32700; { file is not a text file } 
= 32720; 

string[255]; 

longint; 


lengths, eg L[1] contains count for all labels } 


{ with 1 character, L[2] count for all labels with 2 characters } 


t_length list = 


t_file label info = 


var 


g_debug_ tool 
g_mac date time 
g_arg tool_name 
g_arg local label 
g_arg index 
g_arg file name 
g_ file label info 


g_ file label info t : 


g_£ count_index 
g_£ count _index a 
g_£ count index z 
g_total_ file sizes 
g_error 


{$S SgAsmLabelInfo} 


procedure fetch _mac_ error message ( 


var 


msg : string[99]; 


begin 


array [1..k_max label length] of t_counter; 


record 
i_file lines : t counter; { lines in file } 
i_label_ count : t counter; { regular labels } 
i_llabel_ count : t_counter; { local labels } 
i_length_min : t counter; { min label length } 
i_length_min_n : t_string; 
i_length_max : t_counter; { max label length } 
i_length_max_n : t_string; 
i_length_total : t counter; { total number of label chars } 
i_length_avg : t_counter; { avg label length } 
i_length_std : real; { standard deviation length } 
i_length_stdx2 : t_ counter; { std dev: sum(x%2) } 
i_length_stdx : t_counter; { std dev: sum(x)%2 } 


i_length_list 
end; 


: t_length_list; 


: boolean; { 
: t string; { 
: t string; 

: t string; 

: integer; 

: t string; 

: t_file label info; { 
t_file label info; { 
: integer; 

: integer; 

: integer; 

: longint; 

: integer; 


write special debugging info } 
current machine date/time } 


single file label info } 
total file label info } 


the_error : integer; 
var the_error msg : t_string) ; 


if (the_error >= k_err_ alpha) and (the_error <= k_err_omega) then 


begin 


case the error of 


k_err_ not_text file 


otherwise 
end; { case } 


'File is not a Macintosh text file.'; 
‘Unknown tool error (contact programmer) .'; 


: msg 
msg 
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<300> 
<301> 
<302> 
<303> 
<304> 
<305> 
<306> 
<307> 
<308> 
<309> 
<310> 
<311> 
<312> 
<313> 
<314> 
<315> 
<316> 
<317> 
<318> 
<319> 
<320> 
<321> 
<322> 
<323> 
<324> 
<325> 
<326> 
<327> 
<328> 
<329> 
<330> 
<331> 
<332> 
<333> 
<334> 
<335> 
<336> 
<337> 
<338> 
<339> 
<340> 
<341> 
<342> 
<343> 
<344> 
<345> 
<346> 
<347> 
<348> 
<349> 
<350> 
<351> 
<352> 
<353> 
<354> 
<355> 
<356> 
<357> 
<358> 
<359> 
<360> 
<361> 
<362> 
<363> 
<364> 


the_error msg := msg; 
end 
else 
begin 
GetSysErrText (the_error,@the_error_ msg) ; 
end; 
end; 
{ cs a a ena ec ccc hs a a a ce 
procedure write_error message (the error : integer) ; 
var 
err message : t_string; 
begin 
fetch_mac_error message (the _error,err message) ; 
writeln (err message) ; 
end; 
{ Se Se See ee eee ee es a ee a ee ee ee ee eee 
function file is text (the file name : t_string) : boolean; 
var 
is text file : boolean; 
finder info : FiInfo; 
file type : string[4]; 
error : integer; 
begin 
is text file := false; 
error := GetFInfo(the file name,0,finder info) ; 
if error = 0 then 
begin 
file type S P2224 
file _type[1] := finder _info.fdType[1] ; 
file _type[2] := finder _info.fdType[2] ; 
file _type[3] := finder_info.fdType[3] ; 
file _type[4] := finder _info.fdType[4] ; 
if g debug tool then 
writeln('%%% FILE IS TEXT: fdType = "',file type,'"'); 
if finder_info.fdType = 'TEXT' then 
is_text_file := true; 
end; 
file is text := is text file; 
end; 
{ a a a a a ee ea a a ee eee eee 
function get_file size (the_file name : t_string) : longint; 


var 
£ size : longint; 
f ref : integer; 
error : integer; 
begin 
£ size := 0; 


eee 
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<365> 
<366> 
<367> 
<368> 
<369> 
<370> 
<371> 
<372> 
<373> 
<374> 
<375> 
<376> 
<377> 
<378> 
<379> 
<380> 
<381> 
<382> 
<383> 
<384> 
<385> 
<386> 
<387> 
<388> 
<389> 
<390> 
<391> 
<392> 
<393> 
<394> 
<395> 
<396> 
<397> 
<398> 
<399> 
<400> 
<401> 
<402> 
<403> 
<404> 
<405> 
<406> 
<407> 
<408> 
<409> 
<410> 
<411> 
<412> 
<413> 
<414> 
<415> 
<416> 
<417> 
<418> 
<419> 
<420> 
<421> 
<422> 
<423> 
<424> 
<425> 
<426> 
<427> 
<428> 
<429> 


eee 


error := FSOpen (the file name,0,f ref) ; 


if error = 0 then 
begin 
error := GetEOF (f ref,f£ size) ; 


if g debug tool and (error = 0) then 
writeln('%%% GET FILE SIZE: f£ size = ',f size:0); 


error := FSClose (f ref) ; 
end; 


get_file size := f size; 
end; 


procedure uppercase (var s : t_string) ; 


var 
i: integer; 


begin 
if length(s) > 0 then 
for i := 1 to length(s) do 
if (s[i] >= 'a') and (s[i] <= 'z') then 
s[i] := chr( ord(s[i]) - ord('a') + ord('A') ); 


procedure inc counter (var the_counter : t_counter) ; 


begin 
the_counter := the counter + 1; 
end; 


procedure fetch label from _line ( the file line : t string; 


var the label phrase : t_string) ; 


var 
c_index : integer; 
done : boolean; 


begin 
the_label phrase := ''; 


1; 
false; 


c_index := 
done = 
repeat 
if c_index > length(the file line) then 
done := true 
else 
begin 
if the_file line[c index] <= chr(32) then 
done := true 
else 
the label phrase := concat(the label phrase, 
the file line[c_index]) ; 
end; 
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eee 


<430> c_index := c_ index + 1; 

<431> until done; 

<432> end; 

<433> 

<ABE> [mmm rrr rrr rr enn nnn nnn nnan } 
<435> 

<436> procedure process _asm file ( the_file name : t string; 
<437> the_file number : integer; 
<438> var the file label info : t file label info; 
<439> var the error : integer) ; 
<440> 

<441> ~~ const 

<442> k_label_view_length = 20; 

<443> k_labels per line = 3; 

<444> 

<445> var 

<446> asm_file : text; 

<447> asm_file line : t string; 

<448> len_count_index : integer; 

<449> label_phrase : t string; 

<450> label_length : integer; 

<451> file size : longint; 

<452> 

<453> begin 

<454> the_error := 0; 

<455> 

<456> if g debug tool then 

<457> begin 

<458> writeln('%%% PROCESS ASM FILE: the file name = "',the file name,'"'); 
<459> writeln('%%% PROCESS ASM FILE: the file number = ',the file number:0) ; 
<460> end; 

<461> 

<462> with the file label info do 

<463> begin 

<464> i_file lines = 0; 

<465> i_label_ count := 0; 

<466> i_llabel_ count := 0; 

<467> i_length_min := maxint; 

<468> i_length minin := ''; 

<469> i_length_max := 0; 

<470> i_length_maxin := '''; 

<471> i_length_ total := 0; 

<A72> i_length_avg := 0; 

<473> i_length_std := 0.0; 

<A74> i_length_stdx2 := 0; 

<475> i_length_stdx := 0; 

<476> 

<477> for len_count_index := 1 to k_max_ label length do 
<478> i_length_list[len_count_index] := 0; 

<479> end; 

<480> 

<481> writeln; 

<482> writeln (k_divider,k divider) ; 

<483> writeln('* LABEL INFO FOR FILE : ',the file name) ; 

<484> writeln (k_divider,k divider) ; 

<485> 

<486> if file is text(the file name) then 

<487> begin 

<488> file size:= get file size(the file name) ; 

<489> 

<490> if file _size <= 0 then 

<491> begin 

<492> the file label _info.i_ length_min := 0; 

<493> 

<494> writeln ('### WARNING: File "',the file name,'" contains no data’) ; 
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<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 
<531> 
<532> 
<533> 
<534> 
<535> 
<536> 
<537> 
<538> 
<539> 
<540> 
<541> 
<542> 
<543> 
<544> 
<545> 
<546> 
<547> 
<548> 
<549> 
<550> 
<551> 
<552> 
<553> 
<554> 
<555> 
<556> 
<557> 
<558> 
<559> 


end 
else 
begin 
reset (asm _file,the file name); the_error := ioresult; 


if g debug tool and (the error <> 0) then 


writeln('%%% PROCESS ASM FILE: RESET error = ',the error:0) ; 
end; 
end 
else 
begin 
the error := k_err not _text_ file; 
end; 


if (the_error = 0) and (file size > 0) then 
begin 
while not(eof(asm_file)) and (the error = 0) do 
begin 
inc_counter (the file label info.i file lines) ; 
if the file label info.i file lines mod 16 = 0 then 
begin 
if odd(the file number) then 
SpinCursor (+1) 
else 
SpinCursor (-1) ; 
end; 


readin (asm_file,asm file line); the_error := ioresult; 


if g debug tool and (the error <> 0) then 
writeln('%%% PROCESS ASM FILE: READLN error = ',the error:0) ; 


if the_error = 0 then 
begin 
if length(asm_ file line) > 0 then 
begin 
if not(asm_file line[1] in [';','*',chr(0)..chr(32)]) then 
begin 
with the file label info do 
begin 
fetch_label from line (asm_file line, label _phrase) ; 


if length(label_ phrase) > k_max_label length then 
label phrase := copy(label_ phrase, 
1 


k_max_label_ length) ; 
label_length := length(label phrase) ; 


if label _phrase[1] = g_arg local_label[1] then 


begin 
{ --- LOCAL LABEL --- } 
inc_counter(i_llabel_ count) ; 
end 
else 
begin 
{ --- REGULAR LABEL --- } 


inc_counter(i_label_ count) ; 
inc_counter(i_length_list[label_length]) ; 


i_length_total := i_length_total + label length; 


i_length_stdx2 : 


ene 
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<560> 
<561> 
<562> 
<563> 
<564> 
<565> 
<566> 
<567> 
<568> 
<569> 
<570> 
<571> 
<572> 
<573> 
<574> 
<575> 
<576> 
<577> 
<578> 
<579> 
<580> 
<581> 
<582> 
<583> 
<584> 
<585> 
<586> 
<587> 
<588> 
<589> 
<590> 
<591> 
<592> 
<593> 
<594> 
<595> 
<596> 
<597> 
<598> 
<599> 
<600> 
<601> 
<602> 
<603> 
<604> 
<605> 
<606> 
<607> 
<608> 
<609> 
<610> 
<611> 
<612> 
<613> 
<614> 
<615> 
<616> 
<617> 
<618> 
<619> 
<620> 
<621> 
<622> 
<623> 
<624> 


eee 


i_length_stdx2 + sqr(label_ length) ; 
i_length_stdx := 
i_length_stdx + label_length; 


if label_length < i_length_min then 
begin 
i_length_min 
i_length_min_n : 
end; 


label_length; 
label_phrase; 


if label_ length > i_length_max then 
begin 
i_length_max 
i_length_max.n : 
end; 


label_length; 
label_phrase; 


if length(label phrase) > k_label_view_length then 
begin 
label_phrase := copy(label phrase, 
1 


k_label_view_length) ; 
label_ phrase := concat(label phrase,'?') ; 
end; 


while length(label phrase) < k_label_ view length do 
label phrase := concat(label_ phrase,' ') ; 


write(i_ file lines:6,' ', label_phrase) ; 
the_error := ioresult; 


if g debug tool and (the error <> 0) then 
writeln('%%% PROCESS ASM FILE: WRITE error = ', 
the_error:0) ; 


if i_label_count mod k_labels per line = 0 then 
writeln; 
end; 
end; { with the file label info } 
end; 
end; 
end; 
end; 


close (asm_ file) ; 
{ make certain label list ends with a line feed } 


if the _file label _info.i_ label count mod k_ labels per line <> 0 then 
writeln; 


{ calculate label stats } 


if g debug tool then 
begin 
with the file label info do 
begin 
writeln('%%% PROCESS ASM FILE: i length total 
writeln('%%% PROCESS ASM FILE: i_ label count 
writeln('%%% PROCESS ASM FILE: i length stdx2 
writeln('%%% PROCESS ASM FILE: i length stdx 
end; 
end; 


',i_length_total:0) ; 
',i_label_count:0) ; 
',i_length_stdx2:0) ; 
',i_length_stdx:0) ; 


with the file label info do 
begin 
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<625> 
<626> 
<627> 
<628> 
<629> 
<630> 
<631> 
<632> 
<633> 
<634> 
<635> 
<636> 
<637> 
<638> 
<639> 
<640> 
<641> 
<642> 
<643> 
<644> 
<645> 
<646> 
<647> 
<648> 
<649> 
<650> 
<651> 
<652> 
<653> 
<654> 
<655> 
<656> 
<657> 
<658> 
<659> 
<660> 
<661> 
<662> 
<663> 
<664> 
<665> 
<666> 
<667> 
<668> 
<669> 
<670> 
<671> 
<672> 
<673> 
<674> 
<675> 
<676> 
<677> 
<678> 
<679> 
<680> 
<681> 
<682> 
<683> 
<684> 
<685> 
<686> 
<687> 
<688> 
<689> 


if i_length_total > 0 then 
begin 
i_length_avg : 


i_length_std : 


/ 


i_length_total div i_label_count; 


sqrt( (i_length stdx2 - sqr(i_length_stdx) / 


i_label_count) 


(i_label_count - 1) ); 


end; 
end; { with the file label info } 
end; 


procedure get current date time (var s : t_string) ; 


ene 


var 
mac_date time info : longint; 
date time string : str255; 
begin 
getdatetime (mac_date time info) ; 
iudatestring (mac_date_time_info,longdate,date time string) ; 
s := date time string; 
iutimestring (mac_date_ time _info,true,date time string) ; 
s := concat(s,' ',date time string) ; 
end; 
{ i i a i a a a a a a ee ee a a a ee a a ee eee 
{ M A I N 
{ a a a a a a a a a a a a i i a a a 
begin 
PLSetVBuf (output,nil, iolbf,0); { mpw output buffer flushing control } 
InitCursorCtl (nil); { mpw beach ball cursor } 
InitErrMgr ('','',£alse) ; { mpw error message manager } 
get_current date time(g_mac date time) ; 
writeln; 
writeln(k_pgm_title,' Version: ',k_pgm version) ; 
writeln('Written by ',k_pgm_author,' [',k_pgm date,' ',k pgm time,']'); 
writeln(k_pgm_ address) ; 
writeln(k_pgm_ copyright) ; 
writeln; 
writeln('Current Date and Time: ',g mac date time) ; 
writeln; 
g_arg_ tool name := argv*[0]%; 
g_debug_ tool := false; 
if argc < 3 then 
begin 
writeln('### ERROR : Tool argument list is wrong’) ; 
writeln ('### SYNTAX: ',g arg tool_name,' local-label-char asm-text-file-list') ; 
writeln ('### where local-label-char is a character that exists at') ; 
writeln(' the beginning of each local label (eg: "@"),'); 
writeln (' asm-text-file-list is a list of assembly language') ; 
writeln (' file names (eg: FooBar.a Frodor.a)'); 
writeln; 
writeln (' if local-label-char contains the phrase "DEBUG" then') ; 
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<690> 
<691> 
<692> 
<693> 
<694> 
<695> 
<696> 
<697> 
<698> 
<699> 
<700> 
<701> 
<702> 
<703> 
<704> 
<705> 
<706> 
<707> 
<708> 
<709> 
<710> 
<711> 
<712> 
<713> 
<714> 
<715> 
<716> 
<717> 
<718> 
<719> 
<720> 
<721> 
<722> 
<723> 
<724> 
<725> 
<726> 
<727> 
<728> 
<729> 
<730> 
<731> 
<732> 
<733> 
<734> 
<735> 
<736> 
<737> 
<738> 
<739> 
<740> 
<741> 
<742> 
<743> 
<744> 
<745> 
<746> 
<T471> 
<748> 
<7T49> 
<750> 
<751> 
<752> 
<753> 
<754> 


writeln (' special debugging information is outputted also') ; 


end 
else 
begin 


with g file label info t do { label info for all the files } 


begin 

i_file lines 
i_label_count 
i_llabel_count 
i_length_min 
i_length_min_n 
i_length_max 
i_length_max_n 
i_length_total 
i_length_avg 
i_length_std 
i_length_stdx2 
i_length_stdx 


fo) 


BOS 
(#5 
3 
ct 


, 


~ 


-~™ 


~ 


fo) 


inion db db td bene 
ooo0o0 -O - 


Ne Nee 


for g_f£ count_index := 1 to k_max label length do 
i_length_list[g £ count index] := 0; 
end; 


g_arg local label := argv*[1]%; 
uppercase (g_ arg local label) ; 


if pos(k_debug phrase,g arg local label) > 0 then 
begin 
g_debug tool := true; 


delete (g_arg_ local _ label, 
pos (k_debug phrase,g arg local label), 
length (k_debug phrase) ) ; 


writeln('%%% local label arg string contains debug flag phrase') ; 


Coes 


writeln('%%% g_arg local label (after delete) = "',g arg local _label,'"'); 


end; 


if g debug tool then 


writeln('%%% g_arg local label = "',g arg local _label,'" 


"length = ',length(g_arg local label) :0) ; 


if length(g_arg local label) = 0 then 
begin 
g_arg local label 
g_arg local label[1] 
end; 


191. 
tor 


chr (255) ; 


if g arg local label[1] <= ' ' then 
g_arg local label := chr(255) ; 


if g debug tool then 
writeln('%%% argc = ',argc:0); 


g_arg index := 1; 


while (g_arg index < (argc - 1)) do 
begin 
g_arg index 
g_arg file name 


g_arg index + 1; 
argv’ [g_arg index]%*; 


if g debug tool then 


writeln('%%% file arg # ',g arg index:3,' is "',g arg file name,'"'); 


process asm file (g_arg file name, g arg index - 1, g file label info, g error) ; 
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<755> 
<756> 
<757> 
<758> 
<759> 
<760> 
<761> 
<762> 
<763> 
<764> 
<765> 
<766> 
<767> 
<768> 
<769> 
<770> 
<771> 
<772> 
<773> 
<774> 
<715> 
<776> 
<771> 
<778> 
<779> 
<780> 
<781> 
<782> 
<783> 
<784> 
<785> 
<786> 
<787> 
<788> 
<789> 
<790> 
<791> 
<792> 
<793> 
<794> 
<795> 
<796> 
<797> 
<798> 
<799> 
<800> 
<801> 
<802> 
<803> 
<804> 
<805> 
<806> 
<807> 
<808> 
<809> 
<810> 
<811> 
<812> 
<813> 
<814> 
<815> 
<816> 
<817> 
<818> 
<819> 


if g error <> 0 then 


begin 

writeln ('### ERROR ',g error:0, 
' while processing file "',g arg file name,'"'); 

write (' Vy) 
write _error message (g_ error) ; 

end 

else 
begin 


writeln(k_divider,k divider) ; 
writeln('* FILE LABEL STATISTICS') ; 
writeln(k_divider,k divider) ; 


with g file label info do 
begin 
writeln('File Lines 
writeln('Label Count 
writeln('Local Label Count 


',i_file lines: 8) ; 
',i_label_ count: 8) ; 
',i_llabel_count: 8) ; 


writeln ('Min Label Length ',i_length min:8,' ', 
i_length_min_n); 

writeln ('Max Label Length = ',i length_max:8,' ', 
i_length_max_n) ; 

writeln ('Avg Label Length ',i_length_avg:8) ; 


writeln('Std Dev Label Length ',i_length_std:8:2) ; 


writeln; 
writeln('Label Length Frequency Counts: ') ; 


0; 
0; 


g_f£ count index a : 
g_£ count index z : 


for g_£ count _index := 1 to k_max label length do 
if g £ count_index_a = 0 then 
if i_length_list[g_ f count index] <> 0 then 
g_f£ count _index a := g f£ count index; 


for g_£ count_index := k_max label length downto 1 do 
if g £ count_index_ z = 0 then 
if i_length_list[g_f count index] <> 0 then 


g_f£ count _ index z := g £ count index; 


if (g_£ count_index a = 0) or (g_£ count index z = 0) then 


ene 


writeln(' There were no labels to count for this file') 
else 
for g_£ count _index := g f count_index_a to g f count_index _z do 


writeln(' No. Labels with Length ',g f count _index:3,': 
i_length_list[g f£ count_index] :8) ; 
end; { with g file label info } 


writeln(k_divider,k divider) ; 

writeln('* END OF FILE: ',g arg file name) ; 
writeln (k_divider,k divider) ; 

writeln; 


{ accumulate total file label info } 


with g file label info t do 
begin 
i_file lines 
i_label_count 
i_llabel count : 
i_length_total 


if g file label _info.i length_min < i_length_min then 


’ 


i_file lines + g file label info.i file lines; 

i_label_count + g file label info.i label count; 
i_llabel_ count + g file label info.i llabel_ count; 
i_length_total + g file label info.i_ length_total; 
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<820> 
<821> 
<822> 
<823> 
<824> 
<825> 
<826> 
<827> 
<828> 
<829> 
<830> 
<831> 
<832> 
<833> 
<834> 
<835> 
<836> 
<837> 
<838> 
<839> 
<840> 
<841> 
<842> 
<843> 
<844> 
<845> 
<846> 
<847> 
<848> 
<849> 
<850> 
<851> 
<852> 
<853> 
<854> 
<855> 
<856> 
<857> 
<858> 
<859> 
<860> 
<861> 
<862> 
<863> 
<864> 
<865> 
<866> 
<867> 
<868> 
<869> 
<870> 
<871> 
<872> 
<873> 
<874> 
<875> 
<876> 
<877> 
<878> 
<879> 
<880> 
<881> 
<882> 
<883> 
<884> 


eoses 


begin 
i_length_min 
i_length_min n 
end; 


g_file label info.i length min; 
g_file label _info.i length min _n; 


if g file label info.i length_max > i_length_max then 
begin 
i_length_max 
i_length_max_n : 
end; 


g_file label _info.i_length_max; 
g_file label _info.i length max _n; 


i_length_stdx2 
i_length_stdx 


i_length_stdx2 + g file label info.i_ length_stdx2; 
i_length_stdx + g file label info.i_ length_stdx; 


for g_£ count index := 1 to k_max label length do 
i_length list[g_ £ count_index] := i_length_list[g_ f count index] + 
g_ file label _info.i length _list[g £ count index] ; 
end; { with g file label info t } 
end; 
end; { while } 


if g error = 0 then 
begin 
{ calculate final stats } 


if g debug tool then 
begin 
with g file label info t do 
begin 
writeln('%%% (total) i_length_ total 
writeln('%%% (total) i_label_ count 
writeln('%%% (total) i_length_ stdx2 
writeln('%%% (total) i_length_ stdx 
end; 
end; 


',i_length_total:0) ; 
',i_label_count:0) ; 
',i_length_stdx2:0) ; 
',i_length_stdx:0) ; 


with g file label info t do 
begin 
i_length_avg := i_length_total div i_label count; 


i_length_std := sqrt( (i_length_stdx2 - sqr(i_length_stdx) / 
i_label_count) 
/ 
(i_label_count - 1) ); 
end; { with g file label info t } 


{ show final stats and list of file names } 
writeln(k_divider,k divider) ; 
writeln('* SUMMARY FILE LABEL INFO:') ; 
writeln(k_divider,k divider) ; 
writeln('File Name List:') ; 
g_total file sizes := 0; 
for g_£ count index := 2 to (argc - 1) do 
begin 
g_arg file name:= argv*[g f count _index]%; 
write(' [', (g_£ count _index-1):3,'] '); 
write('Text File? '); 


if file is text(g_arg file name) then 
write ('Yes ") 
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<885> 
<886> 
<887> 
<888> 
<889> 
<890> 
<891> 
<892> 
<893> 
<894> 
<895> 
<896> 
<897> 
<898> 
<899> 
<900> 
<901> 
<902> 
<903> 
<904> 
<905> 
<906> 
<907> 
<908> 
<909> 
<910> 
<911> 
<912> 
<913> 
<914> 
<915> 
<916> 
<917> 
<918> 
<919> 
<920> 
<921> 
<922> 
<923> 
<924> 
<925> 
<926> 
<927> 
<928> 
<929> 
<930> 
<931> 
<932> 
<933> 
<934> 
<935> 
<936> 
<937> 
<938> 
<939> 
<940> 
<941> 
<942> 
<943> 
<944> 
<945> 
<946> 
<947> 


else 
write ('No i as 


write('Size: ',get file size(g arg file name):8,' bytes - '); 


g_total_ file sizes := g total file sizes + 
get_file size(g arg file name) ; 


writeln('"',g arg file name,'"') ; 


end; 


writeln(' 
writeln(' 


with g file label info t do 
begin 
writeln; 


',g_ total file sizes:8) ; 


writeln('All File Label Statistics: ') ; 


writeln(' File Lines 
writeln(' Label Count 
writeln(' Local Label Count 


writeln(' Min Label Length 
writeln(' Max Label Length 


writeln(' Avg Label Length 
writeln(' Std Dev Label Length 


writeln; 


',i_file_ lines:8) ; 
',i_label_ count: 8) ; 
',i_llabel_count: 8) ; 
',i_length min:8,' ', 


i_length_min_n); 


',i_length _max:8,' ', 


i_length_max_n); 


writeln('Label Length Frequency Counts:'); 


0; 
0; 


g_f£ count _index a : 
g_£ count index z : 


',i_length_avg:8) ; 
',i_length_std:8:2) ; 


for g_ £ count _index := 1 to k_max label length do 
if g £ count_index_a = 0 then 
if i_length_list[g_ f count_index] <> 0 then 


g_£ count index a := g f£ count index; 


for g_ £ count index := k_max label length downto 1 do 
if g £ count_index z = 0 then 
if i_length_list[g_ f count_index] <> 0 then 


g_£ count index z := g £ count index; 


if (g_£ count index a = 0) or (g _£ count index z = 0) then 
writeln(' There were no labels to count for this file') 


else 


ene 


for g_£ count _index := g f count_index_a to g f count index z do 


writeln(' No. Labels with Length ',g f count index:3,': ', 


i_length_list[g f£ count_index] :8) ; 
end; { with g file label info t } 


writeln(k_divider,k divider) ; 


writeln('* END OF SUMMARY FILE LABEL INFO') ; 


writeln(k_divider,k divider) ; 
end; 
end; 


writeln; 
writeln('That''s all Folks !'); 
end. 


{ FINIS } 
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For those with a curiosity about the Lisa’s 68000 assembler here’s the assembler’s 
progress information for the assembly of the Boot ROM sources (this assembler ran in 
the Lisa Workshop environment and was called either the Lisa Assembler or the TLA 
Assember [TLA stood for The Last Assembler and was used for this assembler since it was 
designed to use external definition data files containing opcode information which 
allowed the assembler to process different assembly languages depending upon the 
contents of the external definition data files]): 


1> 

2> 

3> 

4> 

5> 

6> 

71> 

8> 

9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
47> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 


NAKRKAKAKAKAKAKRAKAKAKAKRAKRKAKAKAKRAKRAKAKAKRAKAKAKRAKAKAKRAKAKRAKAKAKAKAAA 


SEERA EE EEE EAE EE AEE EEE AEE EAE A EE EEE a a 
# # 
# APPLE LISA BOOT ROM 2.48 SOURCE CODE ASSEMBLER PROGRESS INFORMATION # 
# # 
SERRATE EEE AEE AE EEE AEE BE AEE EAE EAE EE EEE Ea a 
ASSEMBLER - MC68000 (Ver 3.77) 02-May-85 

(C) 1984 Apple Computer Inc. 

Options: Meaning Current Value. 

+P Pretty Listing FALSE 

+S Print Space Avail FALSE 

+E Code patching efficiency check FALSE 

? Print options 

<ret> Accept options 

Input file ? [.TEXT] ? 

options : +P 

options : 

Input file ? [.TEXT] RM248.E 


Listing file (<CR> for none) ? [.TEXT] -PROFILE-RM248.LIST 
Output file ? [RM248.E] [.OBJ] RM248 


< 
< 
< 
< 

. INCLUDE RM248.K.TEXT 


.PROC LISAROM,0O 


AAAAA 
oa 
oO 
oO 
v 


AAAAA 
for) 
o 
oO 
oO 
v 


. INCLUDE RM248 .M. TEXT 
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NAKRANRKANKRAKRAKKAKRAKRAKAKAKRAKAKAKRAKAKAKAKRAKAKAAAKA 
~l 
[oe] 
v 


<108> 
<109> 
<110> 
<111> 
<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 


X.7 


. INCLUDE RM248.G.TEXT 


RA QOO2 PD . Sesss asin 3 ha ted ideo! seu ee le avetey sce Wes See eele Gee kts 

ST OOOO es ae ao alata ceset ts ie ahaa SRS STS, sree ss, SoS Sate ied fore 
LOS OOP ee cic ne ei hg chs ET ere E SS Spee A eiaheg We MSS wo ete eke tess enguaet eres 
CTT OOO Dee 55 55555 he Nhe seretenetede, esl atioy seen Oe ag eke BS cbroiie. Wh S eye Mend gia areal eles 
SILLS OOP ee sate sets aceiensi elas aie Persitehe Seeeea ars 


Assembly complete: 11840 lines 
0 Warnings 
0 Errors 


MC68000 Assembly Pretty Listing (Ver 3.77) 


pass one - getting patches 

ODF paises shane piss ahe sheik ia toiotcs agaraaoretar Ina apslapans Ta stade socd se tone socontauietela 
DOOD wioecelar se caitins Grgtora b Stored aie eserend ore er ane Wer danieiegentvelene Merete cqusvers arene 
ZOOP. dere Seed eee Vise dt wha een ce wists ode aceite Mg Bec Seas hee wes g ere aie 
BOOS! © facie tee de sieceie Wel ane Bluse wieanidee es Sieuele Sai whe feos He whe se lO red ote 
MOOD dich ee gaa re Siete al ae wets oie Fo G ansehen disease eds deguane- bud alemareo' 
BOO ds — segheacate ie bia snar shader eis enema tote rannopelar ara capa lags esas soceyeteue Jaca or akaleeta la 
COOP heceseterecatine dere ter cr blevavert, oars dane eesuatdne Wake ere donee ane fereteaie ovord laters 
HOOD: + pie thot code hcaseseca es tlestuh ©) otraiee susie Gras susan cepene? eenete.or oversee ses allasens 
BOOS nena ue Buscde ete Boi Eile: BSS a aspid elisa ats lao au ole fone He eS h ee, Stender 
DOOR mbeeec sce lenses Se et tesla ara e wate let ois Sova alieia loralige ister obo te igheee@i an apand- alevavon’ 
ETOOOD rendre oxehebateoupeleletacs ele: dete ale Mire oe ardrshern ete Miele s cuapews guar boaiee 
TT OOF eeiskn sh cent dare ropes a ana ebehercar prin aie Pe rolete Mone ei const, die exeeimalGulenocs Oaks 
SA200>: + csetece wiles soiG ke Bath args space eae: sysascasd aust oine te: clailexegsaliedonens 
STSOOF i rdussdis Stegerie.eSticabewd Sees aivetoce Site pecleine We 4a: Win ge We oes ate dorama sedendvons 
STAOOD Siehetecs le iene e! sha Aelle cb oahie owe eed eke re seis Lote weed erate adel engvaher ee al ecaver’s 
SIBOOS  sndre wre ehete ent elelalucg aie a greee Reis oe SS daha Wiele Rielel edigpednerecece ins 
KTOOOD Ss accrsdeeere: Sidecesien ds See nesec ve aricarlace ene ar Sieg Dividers ze up seveta tar Miealereveite 
SATOOS: 5 acs. Si atatcieCovleuize ce tis's Atsils Muatel ssdhiai gy eclenn Gu anetetoeteus: copes: aPoiacauseialeunns 
STBOOS: oie siicenessiidesieye ste tiave rece Be 
pass two - making updates 
< OD: sated tte areas wtb dare ieee oe Peete nee ee ee eee d 
STOOD crscdeegere: Seeley eases ce ails aria eer Sev sui Ssey RSs Gp averse weyaFem eres 
ZOO Paes die cove ye cS geigS enalte Sa Sravecey ot oe Sin ioe tant ts Se Galea di tlle so Tord Wlaerendueele 
Su SOOF: eh Sets Sie rte Sd awd Mdee hire esd Gite pedaise Wer to, te See ORY tee, Beane e ec ep eens 
MOOD] Averite atsnea ussahs sears andcaceice ralarapatapatocts tay alas Ge temesaneedauetone Ta mara olace ne 
SABO OF: = ere sa th Gee wrens 15-018 warps rane de ree! aaeoe-thoveie anions ‘exertraiitel ent ass 
< 
< 
< 
< 


ANAAKRNRAKAKAAAAA 


COOP  - eaccecves Sadao gee Bae dh ere to asa g sia Baie EEO eres ee 

MOOD: « Secchi he outa auc tee aelo a. ats ie lasenaceyate- eh ack a ons ks Misuse da ae tered eet reitvoker 

BOOD: . sdieidns sete Sind wes anes e hie heehee b Sah ene Baraat Wome eee Hated Saree’ 

QOOF ee eae Sed che ho be Se anit. Addi ate ecaeae she: see tet Teele lee Wie ae eal ae 
STQOOF eos ck Se we eed ere 2d erete tue oh de Brew aes Seehene-e Meters eteretg oy ayshnd oO s 
SITLOOF pales co lew cele til ote ala ew ALA RAGE, bos, Slate ue elee, eehelionws 
SITQZOOS:  _.-sestsnd gh spate acd ak cer 2s fo aE SAS see ial Soe ue eek Rie Weed Blew ete « 
PUSOOP  deicnscece She agen ete aeeee ate c heli ane d ee existed eee oes Ee alee ed alere ans 
KTAOOS esheets Gee shoe yee tete ees eho aes suehete Ose tens Sewer eked ae thee bieeh was 
STS OOP oe aac i keer bb gteval Dh hoe a he ale a Seats Shee ere elon Sayeed eeu 
S160OF = oc sites oles ecco ia ethie ay sia LENSE, ors SS, uses Oi Gpeela ye Meee 
Gt Ef 10] 0 > SR ee Se a ee oe 
SIB00> ie Miers eeraiet Goel hes ert ae 


ASSEMBLY COMPLETE . 


BOOT ROM CHARACTER FONT 


eee 
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The boot ROM supported a character font which the ROM used for its menus, icons, and 
Service Mode. This font supported only a limited number of characters, which follow: 


(space) . - / 0123456789 ABCDEFGHIJKLMNOP ? (inverse ?) (Apple symbol) 


Note that no lowercase characters existed in this font, and only a few special 
characters (e.g. /) appeared. 


Complete bitmaps of these characters follow. These were produced by David Craig’s 
program DTCLisaBootROMFonts whose source code appears at the end of this section. 
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H 
OOOOOO0000 
On 

a 

ORRREEE 
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inverse 7 | apple icon 
OOOOOO0000 
O i 0 
O BEE GEO 


OMRREEEE © 
OMRREEEE © 
| BERREEEO 
O 80HHE Oo 
OOOOO0I0000 


The Macintosh MPW Pascal source code for the program DTCLisaBootROMFonts follows: 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 


{ 
APPLE LISA COMPUTER BOOT ROM FONT TABLE DUMPER 


THIS MACINTOSH MPW SHELL TOOL WRITES THE DATA CONTAINED IN THE APPLE 
LISA COMPUTER'S BOOT ROM FONT TABLE TO THE ACTIVE WINDOW AS TEXTUAL 
DATA. THE LISA FONT TABLE DATA IS EMBEDDED WITHIN THIS TOOL. 


WRITTEN BY DAVID T. CRAIG FOR HIS LISA LEGACY REVISION PAPER 
04 SEPTEMBER 1994 
} 


program lisa _boot_rom_ font bitmaps; 


const k_pgm_name 
k_pgm_author 


k_pgm_date 
k_font_count 


"Lisa Computer Boot ROM Font Bitmap Drawer' ; 
"David T. Craig'; 

'04 September 1994'; 

43; 


type t_font_description 


a string[31] ; 
t_font_bitmaps 


array [1..k_font_count] of t font description; 
{ chars 1-12 = bitmaps, 14+ = char name } 


t_font_bitmap data = array [1..6] of char; 


t_hex = string[2]; 
t_bit_image = string[8]; 
var v_font bitmaps : t_font_bitmaps; 


v_font_ bitmap index : 1..k_font_count; 
v_font_ bitmap data : t font bitmap data; 


v_font_char : t_font_description; 
v_bit_image : t_bit_image; 
v_bit_image i : 1..6; 


{ 


{ initialize the boot rom font bitmaps, this data is from the rom 
source file "RM248.G.TEXT" and the table titled "AsciiTable" } 


procedure init font bitmaps; 


begin 
v_font_bitmaps[ 1] 
v_font_bitmaps[ 2] 
v_font_bitmaps[ 3] 
v_font_bitmaps[ 4] 
v_font_bitmaps[ 5] 
v_font_bitmaps[ 6] 


‘000000000000 space' ; 
'0000007C0000 -'; 
"000000000030 .'; 
"040810204080 /'; 
"384444444438 0'; 
‘083808080808 1'; 
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00047 v_font_bitmaps[ 7] := '38440810207C 2'; 
00048 v_font_bitmaps[ 8] := '384418044438 3'; 
00049 v_font_bitmaps[ 9] := '081828487C08 4'; 
00050 v_font_bitmaps[10] := '704078044438 5'; 
00051 v_font_bitmaps[11] := '384078444438 6'; 
00052 v_font_bitmaps[12] := '7C0810102020 7'; 
00053 v_font_bitmaps[13] := '384438444438 8'; 
00054 v_font_bitmaps[14] := '3844443C0438 9'; 
00055 v_font_bitmaps[15] := '304884FC8484 A'; 
00056 v_font_bitmaps[16] := 'F884F88484F8 B'; 
00057 v_font_bitmaps[17] := '788480808478 C'; 
00058 v_font_bitmaps[18] := 'F884848484F8 D'; 
00059 v_font_bitmaps[19] := 'FC80F88080FC E'; 
00060 v_font_bitmaps[20] := 'FC80F8808080 F'; 
00061 v_font_bitmaps[21] := '7884809C847C G'; 
00062 v_font_bitmaps[22] := '8484FC848484 H'; 
00063 v_font_bitmaps[23] := '381010101038 I'; 
00064 v_font_bitmaps[24] := '1C0808088870 J'; 
00065 v_font_bitmaps[25] := '8890A0D08884 K'; 
00066 v_font_bitmaps[26] := '8080808080FC L'; 
00067 v_font_bitmaps[27] := '84CCB4848484 M'; 
00068 v_font_bitmaps[28] := '84C4A4948C84 N'; 
00069 v_font_bitmaps[29] := '788484848478 0'; 
00070 v_font_bitmaps[30] := 'F88484F88080 P'; 
00071 v_font_bitmaps[31] := '788484849478 Q'; 
00072 v_font_bitmaps[32] := 'F88484F88884 R'; 
00073 v_font_bitmaps[33] := '788460188478 Ss'; 
00074 v_font_bitmaps[34] := 'FE1010101010 T'; 
00075 v_font_bitmaps[35] := '848484848478 U'; 
00076 v_font_bitmaps[36] := '444428281010 v'; 
00077 v_font_bitmaps[37] := '828292AA4444 wW'; 
00078 v_font_bitmaps[38] := '442810284482 x'; 
00079 v_font_bitmaps[39] := '824428101010 Y'; 
00080 v_font_bitmaps[40] := 'FC08102040FC 2'; 
00081 v_font_bitmaps[41] := '384408100010 ?' 
00082 v_font_bitmaps[42] := 'C7BBF7EFFFEF inverse ?'; 
00083 v_font_bitmaps[43] := '0877FEFE7F3E apple icon'; 
00084 end; 
00085 
00086 { } 
00087 
00088 function cvt_hex2byte (h : t_hex) : char; { eg: '1C' -- > chr(28) } 
00089 
00090 type t_nibble = 0..15; 
00091 var msn, lsn : t_nibble; 
00092 
00093 function digit2nibble (d : char) : t_nibble; 
00094 
00095 varn : t_nibble; 
00096 
00097 begin 
00098 case d of 
00099 'O' :n := 0; '1' n:= 1; ya n:= 2; "3: n:= 3; 
00100 "'A’ sn := 4; "5! n:= 5; "6! n:= 6; "7! n:= 7; 
00101 '8' :n:= 8; 'g! n:= 9; ‘A! n := 10; 'B! n := 11; 
00102 ‘Cc n := 12; 'D' n := 13; 'E! n := 14; 'F! n := 15; 
00103 end; 
00104 digit2nibble := n; 
00105 end; 
00106 
00107 begin 
00108 msn := digit2nibble(h[1]) ; 
00109 isn := digit2nibble(h[2]) ; 
00110 cvt_hex2byte := chr( (msn * 16) + 1sn ); 
00111 end; 
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00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 


X.8 


{ 


procedure convert bitmap to data ( 


begin 
£ data[1] 
£ data[2] 
£ data[3] 
£ data[4] 
£ data[5] 
£ data[6] 

end; 


{ 


procedure get bit image (bite : 


var 1: longint 
i: 0..7; 


begin 
bit _image := 


1 := ord(bite 


for i := 0 to 


cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 


, 


concat (chr (127) ,chr (127) ,chr (127) ,chr (127) , 
chr (127) ,chr (127) ,chr (127) ,chr (127) ) ; 
{ should appear as an empty square } 


); 


7 do begin 


(copy (£_desc, 
(copy (£_desc, 
(copy (£_desc, 
(copy (£_desc, 
(copy (£_desc, 
(copy (£_desc,1 


if BTST(1,i) = false then 


bit_image 


begin 


[8-1] :=' '; 


writeln (k_pgm_name) ; 
writeln(k_pgm_author,' ',k_pgm date) ; 


init font _bitmaps; 


for v_font_bi 
v_font_char 


convert bitmap to data(v_font_char,v font bitmap data) ; 


tmap_index 


£ desc : 
var £ data : 


char; var bit _image 


:= 1 to k_font_count do begin 


:= v_font_bitmaps[v_font_bitmap index]; 


writeln (copy (v_font_char,14,length (v_font_char) -13)) ; 


writeln ('OOO0000000' ) ; 


for v_bit_ image i 


:= 1 to 6 do begin 


t_font_description; 
t_font_bitmap data) ; 


: t_bit_image) ; 


get_bit image(v_font bitmap data[v_bit image i],v_bit image) ; 
writeln('O',v_bit image, 'O') ; 


end; 


writeln ('OOOO000000' ) ; 


end; 


writeln('That''s all folks!'); 


end. 


BOOT ROM FOREIGN PHRASES 


eee 
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The Boot ROM supported the display of phrases in the following languages: English, 
French, or German. 


The language phrases that appeared were based upon the type of keyboard connected to 
the Lisa. All Lisa keyboards were self-identifiying. As such, a Lisa user could 
attach for example a German Lisa keyboard and the Boot ROM phrases would appear in 
German. English phrases appeared for US, UK, and Canadian keyboards. If a keyboard 
type was not US, UK, Canadian, German, or French, then the Boot ROM displayed its 
phrases in English, German, and French (the Hardware Interface appendix in the Lisa 
Language Workshop manual listed the following keyboards that could be attached to the 
Lisa: US, Swiss-German, Swiss-French, Portuguese, Spanish-Latin America, Danish, 
Swedish, Italian, French, German, UK, French-Canadian, US-Dvorak, and APL). 


Service Mode phrases were not translated since this mode was ment for use only by Apple 
manufacturing and repair people who would most likely be English speakers (these people 
tended to reside in either Cupertino California or Carrollton Texas, Apple’s main Lisa 
manufacturing facility). 


The English, French, and German language phrases existed in several tables: 


< 1> CHKMSG .ASCII 'TESTING' 

< 2> . BYTE 0 

< 3> .ASCII 'TEST' ;French translation 
< 4> . BYTE 0 

< 5> -ASCII 'ES WIRD GETESTET' ;German translation 
< 6 . BYTE 0 

< 7> 

< 8> RTRYMSG .ASCII 'RESTART' 

< 99> . BYTE 0 

< 10> -ASCII 'RECOMMENCER' ; French 
< 11> . BYTE 0 

< 12> -ASCII 'NEU STARTEN' ;German 
< 13> . BYTE 0 

< 14> 

< 15> CONTMSG .ASCII 'CONTINUE' 

< 16> . BYTE 0 

< 17> -ASCII 'CONTINUER' ; French 
< 18> . BYTE 0 

< 19> -ASCII 'WEITERMACHEN' ;German 
< 20> . BYTE 0 

< 21> 

< 22> STRIMSG .ASCII 'STARTUP FROM' 

< 23> . BYTE 0 

< 24> -ASCII 'DEMARRER DE' ;French 
< 25> . BYTE 0 

< 26> -ASCII 'STARTEN VON' ;German 
< 27> . BYTE 0 


The Boot ROM routine (DSPSTRING, “Display String”) that displayed all language messages 
follows (note the reference to Italian and Spanish keyboards) : 


<0 > paca aaa ase tana S sea saa aos asses aoa ecao Seana = 
< 2> ; Subroutine to display text string according to keyboard id 

< 3> ; Inputs: 

< 4>; A3 = ptr to message 

< 5>; D1 = nonzero if '...' string to be appended 

< 6> ; Outputs: 

< 77>; A2 = ptr to start of string 

< 8>; A3 = ptr to end of string 

< 99>; Side Effects: 

< 10> ; D5-D6, A3 trashed 

QLD pase asa sess essa a SSeS SSS assesses ssa sase Resse aS eH Ss Sa S$ - sas S$S--=5 
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12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
471> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 
66> 
67> 
68> 
69> 
70> 
71> 
72> 
73> 
74> 
75> 
76> 


DSPSTRING 


MOVEM.L D0O/D2,- (SP) 


LEA 


CMPA.L 
BEQ.S 

MOVE.L 
MOVE .B 
BEQ.S 

ANDI .B 
MOVE .B 


MENUHDG , A2 
A2,A3 
DSPOUT 
A3,A2 
KEYID ,DO 
DSPOUT 
#53F,D0 

DO ,D2 


;Save regs 
;don't translate service mode messages 


;skip if it is 

;else save starting point 
;get keyboard id 

;skip if no id available 
;clear mfg code 

;move to working reg 


; Search for US, UK or Canadian keyboard 


ANDI .B 
BEQ.S 
CMPI .B 
BNE.S 
CMPI .B 
BEQ.S 
BRA.S 


@1 CMPI .B 
BNE.S 
CMPI .B 
BEQ.S 


; Search for German typ 


CMPI .B 
BEQ.S 
CMPI .B 
BEQ.S 


#SF0O ,D2 
DSPOUT 
#$30,D2 
@1 

#$3D ,D0 
DSPALL 
DSPOUT 


#$20 ,D2 
DSPALL 
#$2F ,DO 
DSPOUT 


#$2E ,DO 
DSPGERMN 
#$26 ,DO 
DSPGERMN 


7;0ld US keyboard? 
yes - go do English display 
7US or Canadian layout? 


;Canadian? 
7yes - display all languages 
7else just English 


;European keyboard? 

;no - display all languages 
7;UK? 

;yes - display English 


e keyboard 


;German? 


;Swiss-German? 


; Search for French type keyboard 


CMPI .B 
BEQ.S 
CMPI .B 
BEQ.S 


; Display all languages for any other keyboard (e.g., Italian, Spanish, etc.) 


DSPALL BTST 
BNE. 


@1 BSR.S 


DSPFRNCH 


TST.B 
BNE.S 


#52D ,DO 
DSPFRNCH 
#$27,D0 
DSPFRNCH 


#MENU , STATFLGS 


@1 

#CHRSPC ,D5 
DSPIT 
#CHRSPC ,D5 
DSPIT 
#CHRSPC ,D5 
DSPOUT 


DSPMSLSH 
DSPMSLSH 
DSPOUT 


(A3) + 
DSPGERMN 


(A3) + 
DSPFRNCH 


MOVE.L A3,A2 


; French? 


;Swiss-French? 


;doing menu? 

iskip if yes 

;back up one row 

;display English string 

;incr to next row 

;display French translation 
;bump another row 

;go do final display of German 


;display English followed by / 


;display French followed by / 
;and go do final German display 


;skip two strings before output 


;skip one string before output 


;save new beginning ptr 


ene 
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< 77> DSPOUT BSR.S DSPIT ;do display 
< 78> MOVEM.L (SP)+,D0/D2 ;restore regs 
< 79> RTS ; and exit 
X.9 BOOT ROM ICONS 

xXXXXXX 


x.10 BOOT ROM MOUSE CURSOR BITMAP 


The Boot ROM supported the mouse for menu command selections. The mouse had a pointer 
graphic associated with it which had the following bitmap image (the image on the left 
is the actual size, the image on the right is magnified for clarity): 


The bitmap definition for the mouse cursor from the Boot ROM source code follows: 


< 1> CrsrData jarrow for mouse cursor 
< 2> CrsrMask ;same for mask 

< 3> . WORD $8000,$C000,$E000,$F000 

< 4> . WORD SF800,SFC00,$FE0O0,$FF00 

< 5> . WORD SF800,SF800,$CC00,$8C00 

< 6> . WORD $0600,$0600,$0300,$0300 


--- End of Chapter --- 
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